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Editorial 


Longtemps après les Etats-Unis et nos voisins d'Outre Manche, nous voyons enfin aniver sur le Conti- 
nent les matériels compatibles Apple. Nous avons réalisé pour nos lecteurs un premier test du Basis 108 
dans ce numéro: le numéro de Septembre verra, dans la même veine, un banc d'essai du Golem, 
apparu encore plus récemment. 


Chez Apple, l'existence du Mcintosh est maintenant confirmée : nous pouvons espérer voir ce petit frère 
du Lisa débarquer en France dans moins d'un an. À quel prix ? De plus, à un horizon pareillement 
imprécisé et à un prix tout aussi inconnu, nous attendons la version portable de j’Apple Il ou //e. 


Ce numéro est encore très riche et, comme les précedents, essaie de réaliser la quadrature du cercle : 
fournir aux débutant de nombreux articles à leur niveau, tout en proposant beaucoup de matière aux 
utilisateurs de niveaux intermédiaire et professionnel. 


Ceux qui désirent travailler sur leur micro avec des grands nombres pourront choisir entre le BASIC et 
le Pascal, avec les articles de Philippe Chemin, Michel Crimont et Gérard Michel. 


Les débutants et les nouveaux venus trouveront des renseignements utiles dans le sommaire thématique 
des huit premiers numéros de Pom's et les conseils aux débutants d'Alexandre Duback, ainsi que 
dans mon article sur l'accélération des progammes en BASIC. Is pourront aussi analyser et utiliser la 
mini-base de données que nous a proposée Yves Volpi. Enfin, Gérard Michel consacre un nouvel 
article à la gestion de fichiers, dans la série fort appréciée des ”’Notions de base” 


Les fanatiques de l'assembleur pourront utiliser, en guise d’apéritif, la recherche de codes binaires de 
notre fidèle lecteur Guido Bettiol. Après cela, il leur restera à s'offrir la pièce de résistance, avec le 
moniteur étendu de Thierry Le Tallec; encore un programme de Pom's qui, à lui seul, vaut plus que 
le prix de l'abonnement annuel ! 


Guy Mathieu nous montre comment créer facilement des caractères graphiques. Philippe Krepper 
nous donne le moyen de “franciser”’ enfin les messages d'erreur du DOS {ou SED) : if ne reste plus 
qu'à faire des erreurs pour pouvoir apprécier. 


Enfin, dans un registre plus général, vous irouverez les bancs d'essai du Basis 108 et du langage 
PILOT, ainsi que du plus récent SuperPILOT. Les nouveautés sont épluchées par Jean-François 
Duvivier, et Olivier Herz nous présente sa dernière invention, le HBASIC. Le HBASIC est un Apple- 
soft enrichi de nombreuses structures inspirées des langages Pascal et Ada. Comme il aurait fallu consa- 
crer quasiment un numéro au HBASIC à lui tout seul, nous avons décidé de commercialiser celui-ci 
directement au prix de 150 francs, manuel d'utibsation compris. 

Il s’agit là du premier progiciel que nous commercialisons séparément, et sur lequel l’auteur percevra 
des droits bien mérités de 10% du chiffre d’affaires TTC. Avis aux autres créateurs ! 


Nous commençons à vous parier de communication avec l'interview baptisée ‘Allo, Questel ?”. Nous 
vous en reparlerons de façon plus étendue dans les numéros suivants. 


Etant donné la croissance sensible du courrier des lecteurs, nous prions les lecteurs de joindre à leurs 


lettres une enveloppe timbrée pour la réponse : cela nous simplifie la tâche et permet de répondre plus 
vite. 


Puisque nous en sommes aux envois postaux, nous informons les lecteurs qui ont reçu en retard leurs 
envois par avion que nous n’y sommes malheureusement pour rien. Nous avions correctement timbré 
ces envois, mais les Postes ont barré la mention ‘Par Avion” - apparemment du personnel peu au 
courant des tarnifications. Nous espérons que cela ne se reproduira pas. 


Le nombre d'abonnés continue à augmenter. Nous en profitons pour vous rappeler que ce sont les 
abonnés qui permettent à une revue de vivre. Si donc vous êtes en train d’hésiter à vous abonner, ne 
tardez plus. Plus vous serez nombreux, meilleur sera le service que nous pourrons vous rendre. 


Hervé Thiriez 


Ont collaboré à ce numéro : Guido Bettiol - Philippe Chemin - Michel Crimont - Alexandre Duback - Jean-François Duvivier - Olivier Herz - Philippe 
Krepper - Thierry Le Tallec - Guy Matiieu - Gérard Michel - Hervé Thiriez + Yves Volpi 

Rédacteur : Olivier Herz - Dessins : Laurent Bidot. 

Directeur de la publication - rédacteur en chef : Herve Thiriez - Slège soclal et abonnements : Editions MEV - 49. rue Larnartine - 78000 
Veisaïles - Rédaction : 59. bd de Glatigny - 78000 Versailles - Tél. : (31 918.13.07 — Courrier des lecteurs {togiciei} : Olivier Herz - 17. rue du 
Gros Chêne - 44300 Nantes. Régie publicitaire : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tél. (1) 
238.66.10. Diffusion auprès des boutiques et librairies : PSI Diffusion . BP 86 - 77402 Lagny-sur-Marne Cedex. 

Composition : Télécompo - 13-15, avenue du Petit Parc - 84300 Vincennes . Tél. : 328.18.68. 
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DAS 


DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


DEATS 


Verbatim 


GS 


- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 





(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4’. 


- 5 1/4 " en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 S: 
Tél. 533-01-37. 
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Le but de ces trois programmes est 
de permettre la constitution rapide 
d’une petite base de données, telle 
qu'un annuaire téléphonique, une 
collection de disques, une bibliothè- 
que, … 


On commence par définir la forme 
de la fiche, après quoi il ne reste plus 
qu'à remplir le fichier. 


Création de la fiche 


Chaque fiche est constituée par un 
certain nombre d’items (18 au maxi- 
mum pour des raisons de présenta- 
tion sur écran). À chaque item devra 
correspondre l'entrée d’une donnée 
avant des caractéristiques bien défi- 
nies : 


Caractéristiques de type possibles : 


1) Alphanumérique avec une lon- 
gueur maximale autorisée 

2) Numérique de longueur limitée 
(maximum autorisé) 

3} Numérique entier de longueur li- 
mitée 

4) Date de la forme ”’JJ/MM/AA” ou 
bien ”’inconnue” 

5) Longueur imposée 

6} Alphanumérique de longueur im- 
posée 

7) Numérique de longueur imposée 

} Numérique entier de longueur im- 

posée 

9) Type à définir au sein du pro- 
gramme de création du fichier. 


Caractéristiques de longueur : c’est le 
nombre maximum de caractères au- 
torisé pour la donnée (types 1 à 3; 
pour la date, elle est imposée à 8), 


Mini-base 


ou bien une longueur imposée à 
l'entrée (types 5 à 8). 

Pour des raisons de mise en page à 
l'écran, la longueur de l’item (libellé) 
augmentée de la longueur de la ré- 
ponse ne doit pas dépasser 38 carac- 
tères (tout dépassement est contrôlé 
et signalé par le programme). 


Le programme demande en fin de 
traitement le nom du fichier dans le- 
quel seront stockées les caractéristi- 
ques de la fiche. Répondre ainsi 
XXX, par exemple, entraîne la créa- 
tion d’un fichier “XXX MEMO”. 
Après cela, le programme de création 
du fichier peut être utilisé. 


Création du fichier 
1} Charger le programme 


2) Mettre en ligne 3 le nom du fi- 
chier à traiter, soit XXX dans notre 
exemple. Le programme créera le fi- 


chier des données sous le nom ”"XXX 
FICHIER”. 


3) Sauver le programme, ainsi rendu 
opérationnel, sous le nom ”XXX” (il 
n'est pas obligatoire de reprendre le 
même nom, mais cela soulage la mé- 
moire.…..). 


Le programme peut bien sûr être 
modifié, notamment en rajoutant 
d'autres contrôles de type (emplace- 
ment prévu aux lignes 650 à 699). 
Le menu peut également être 
complété pour d’autres traitements : 
il suffit d’intercaler à la ligne 20, 
avant le >", les items du menu (10 
au maximum). Chaque item supplé- 
mentaire renvoie respectivement aux 
lignes 6000, 7000, 8000, 9000 et 
10000. 


de données 


Yves Volpi 

Les principales variables utilisées 

dans ce programme sont : 

MES$(} : menu 

M$) : liste des mois (inutilisée) 

E$(N.I) : fiches de dimension DI,NL 

FI$() : intitulés des lignes 

DO$(} : liste des types 

LO(  : longueurs permises pour 
les entrées 

TY{) : types des différentes en- 
trées 

AT : tabulation horizontale 

UT : tabulation verticale 

WW : idem 

NF : nombre de fiches 

MF : nombre maximum de 
fiches possible (calculé 
par le programme) 

NL : nombre de lignes par 
fiche 

NM idem 


Utilisation du fichier 


1) Charger le programme correspon- 
dant. 


2) Donner en ligne 3 le nom du fi- 
chier et … à vous de travailler. Le 
programme listé ici se contente de 
lire le fichier; à vous de programmer 
les traitements (tris, impressions ..) 
que vous désirez. 


Attention à la longueur de votre pro- 
gramme, qui doit rester compatible 
avec le nombre maximum de fiches 
traitées : si des arrêts de traitement se 
produisent, ils seront certainement 
dûs au fameux nettoyage de la mé- 
moire FRE(O), alors patience... (ou 
reportez-vous au numéro 2 de Pom's 
pour remplacer cette routine de net- 
toyage). 


1 REM x MINI-BASE - Ÿ VOLPI xx = DOS(3) + DOS(5) 
2 REM »##* CREATION DU FICHIER #r*# 10 DOS(S) = * A DEFINIR ET A PROGRAMMER® 
3 FFS = “XXXXXXX" :DOS(10) = DOS(3):DOS(11) = DOS(1 
4 KOCTET = 18000: REM RESERVE MEMOIRE O) 
S DIM DOS(11) 11 MUS = “300:02 O2 AD 30 C$ 88 DO OS C 
6 DS = CHRS (13) + CHRS (4) E O1 O3 FO OS CA DO FS AE OO O3 4 
7 Fi$S = FFS + “ MEMO":FFS = FFS + * FICH C O2 03 60 NDSC6G": FOR I = 1 TO 
IER" LEN (MUS): POKE S11 + I, ASC « M 
8 US = DS + OPEN" + F1S:R1S = DS + "RE 1BS (MUS,I1,1)) + 128: NEXT : POKE 
AD" + F1S:C1S = DS + ‘’CLOSE" + F1 72,0: CALL + 144 
S:0$S = DS + "OPEN" + FFS:RS = BsS 13 DATA JANVIER ,FEVRIER ,MARS 
+ “"READ" + FFS:CS = DS + "CLOSE" » AVRIL , MAI JUIN 
+ FEFS:US = DS + "WRITE‘" + FFS JUILLET  , AOÛT , SEPTEMBRE, 0 
3 DOS(2) = "“NUMERIQUE":DOS(1) = “ALPHA"' CTOBRE ,NOVEMBRE ,'""DECEMBRE ‘": D 
+ DOS(2):D0OS(3) = ‘NUMERIQUE ENTI I1M MS(12): FOR I = 1 TO 12: READ 
ER*“:D0S(4) = “DATE’JJ/MM/AA’ OÙ ‘’ MS(I): NEXT 
INCONNUE”’‘’:DOS(S) = “ DE LONGUEUR 18 REX 
IMPOSEE":D0S(6) = DOS(1) + DOS(S 
):P0S(7) = DOS(2) + DOS(5):DO0S(8) 20 DATA ENTRER LES D@NNEES,LIRE LES DON 
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d REERNITTT # 
ER 


7 


21 
22 


23 


62 
63 


65 


66 


67 


70 


TT 
T2 


99 


100 


NEES,MODIFIER LES DONNEES, SAUVER 
LES DONNEES,FINIR,> 
MES (10) 
MN'cents 
< > ">" 
MN - 1: 
: PRINT 
L : END 
REM 


DIM 


MN = READ MESCMN)D: IF MESCMN) 
THEN 22 
IF MN > 10 THEN 


"TROP DE LIGNES 


INVERSE 
NORMA 


MN = 


ONERR GOTO 353 

PRINT DS'"VERIFY"F1S 

GOTO 40 

HOME : PRINT ” 
E “: END 

POKE 216,0 

PRINT 015$: PRINT R1S$: INPUT NL: 
T HT: FOR I = 1 TO NL: INPUT 
1): INPUT TY{I): INPUT LOI): 
T : PRINT C1sS 

REM CALCUL N MAX FICHES 

PRINT “UN INSTANT SVP ‘’:A = 
111):+ ,PEEK "(112 », 256), = ( PEE 
K (109) + PEEK (110) # 256): FOR 

1 = 1 TO NL:B = LOI) + B: NEXT 

:MF = INT (CA - KOCTET) / (B + 7 
* NL): REM CALCUL MAX FIC 
HES 

IF NF > MF THEN MF = 

DIM FSCMF,NL) 

REM LIRE LE FICHIER 

ONERR GOTO 58 

PRINT DS"VERIFY"FFS 

PRINT OS: PRINT RS: INPUT NF 

FOR I = 1 TO NF: FOR J = 1 TO NL: IN 
PUT FSCI,J)2: NEXT : NEXT : PRINT 
CS: POKE 216,0 

REK 

POKE 216,0 

REM 


IL FAUT CREER LA FICH 


INPU 
FISC 
NEX 


C PEEK ( 


NF 


EXISTANT 


##r#r MENU re 


TEXT : HOME : INVERSE : 
EN (FFS) / 2: PRINT FFS: NORMAL : 
POKE 34,2: VTAB 10 
FOR I = 1 TO MN: INVERSE : 
-";: NORMAL PRINT MES(I): 
5: PRINT :VM PEEX (37) + 2 
VTAB VM: PRINT “ VOTRE CHOIX ‘': 
VTAB VM: HTAB 17: CALL - 868: GET A 
S:A = VAL CAS): IF A < 1 OR A > 
NN THEN 63 
ON À GOTO 1000,2000,3000,4000,35000,6 
000,7000,8000,9000,10000 
VTAB 4: HTAB S: PRINT “FICHE NO ‘;: 
INVERSE : PRINT NF;: NORMAL : PRI 
NT MAX = “:: INVERSE : PRINT 
MF;: NORMAL : PRINT “ FICHES": R 
ETURN 
VTAB 4: 
: NORMAL : 
> 1 THEN 
PRINT : RETURN 
POKE 768,DU: POKE 769,H2: CALL 770: 
RETURN 
DU = S:HZ = 10: GOSUB 70: 
POKE 777,0:DU = 45:H2 = 
: POKE 777,1: RETURN 
REH 


HTAB 20 - L 


PRINTEI" 
NEXT 


[RE L] 


PRINT NF: 
IF NF 


HTAB 135: INVERSE : 
PRINT ‘ FICHE" :: 
PRINT “S* 


RETURN 
30: GOSUB 70 


REM VERIF SI = AU TYPE 1 ALPHANUM 


110 


130 
140 
199 


200 
210 


220 
230 
2350 
299 
300 
310 
315 
320 
399 


400 
410 


415 


420 


430 


440 


FOR II = 1 TO LEN CAS)D:RS = MIDS 
CAS, ,II1,1): IF RS = “," THEN ER = 
1: GOTO 140 

NEXT 

RETURN 

REM 

REM VERIF SI = AU TYPE 2 NUMERIQUE 

NV = O: FOR II = 1 TO LEN <AS)D:A = 
ASC { MIDS (CAS, ,II,1)): IF (A < 4 
8 AND A < > 46) OR À > S7 THEN E 
R = 1 
IF À = 46 THEN NV = NV + 1: IF NV > 
1 THEN ER = 1 

NEXT II 

RETURN 

REM 

REM VERIF SI = AU TYPE 3 NUMERI E 
NTIER 

FOR II = 1 TO LEN CASD:A = ASC 
MIDS ÇCAS,II,1)2): IF A < 48 OR A > 

S7 THEN ER = 1 

NEXT 

RETURN 

REM 

REM VERIF SI = AU TYPE 4 DATE 

IF LEN CAS) < > 8 THEN ER = 1: GO 
TO 430 

IF AS = ‘“INCONNUE" THEN GOTO 490 

BI = O: IF MIDS (CAS,3,1) < > “/* 0 
R MIDS (CAS,6,1) < > “/"* THEN ER 
= 1: GOTO 490 
AN = VAL { STRS (199 + MIDS (AS,7, 
23): IF MIDS (CAS,7,2) = ‘“OO" THE 
N BI = 1 
IF C INT CAN / 4) * 4 = AN THEN BI 
= 1 
JO = VAL ( MIDS (AS,1.2)2):MO = VAL 
C MIDS (AS,4,2)) 

IF 30 > 31 OR JO < 1 THEN ER = 1: G 
OTO 490 

IF JO > 29 AND MO = 2 THEN ER = 1: 
GOTO 490 

IF JO > 28 AND MO = 2 AND BI = O TH 
EN ER = 1: GOTO 490 

IF JO > 30 AND (MO = 4 OR MO = 6 OR 

MO = 9 OR MO = 11) THEN ER = 1: 
GOTO 490 

IF MO < 1 OR MC > 12 THEN ER = 1 

RETURN 

REM 

REM VERIF SI = AU TYPE S LONGUEUR 

1iMPOSEE 

IF LEN CAS) < > LO(I) THEN ER = 1 

RETURN 

REM 

REM VERIF SI. = AU TYPE 1 ALPHANUM 

DE LONG IMPOSEE 

GOSUB 100: GOSUB SOO: RETURN 

REM VERIF SI = AU TYPE 2 NUMERIQU 
EDE LONG IMPOSEE 

GOSUB 200: GOSUB 500: RETURN 

REM VERIF SI = AU TYPE 3 NUMERI 

ENTIER DE LONGUEUR IMPOSEE 

GOSUB 300: GOSUB 500: RETURN 

REM LECTURE 1 FICHE 

PRINT "FICHE NO ‘“:: INVERSE : IF I 
< 100 THEN PRINT “"O'':: IF I < 10 
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TA 
720 


730 
740 


300 


9310 


311 
312 


913 


914 


320 
350 
352 
9354 


9356 


358 
359 
360 
361 


93939 
1000 


1001 
1002 
1010 
1011 


1020 
1030 
1040 


1050 
1060 
1100 
2000 
2001 
2010 
2020 
2030 
2031 
2032 
2040 
2050 


2100 
29939 


AS = 


THEN PRINT 
PRINT I: NORMAL 
FOR J = 1 TO NL: PRINT 

8 HT: PRINT FS(I,J): 
RETURN 
FOR J = 

B HT: 

N 
RENH 


OS 


FIS(J):: 
NEXT 


HTA 


1 TO NL: PRINT 
PRINT FS(I,J): 


FIS(J):: 
NEXT : 


HTA 
RETUR 


868: 


ENTREE DES DONNEES 
VTAB I + VV: HTAB HT: CALL - 
FOR II = 1 TO LO(I): PRINT 
NEXT : HTAB HT: GOSUB 9SO 
IF AS = “" AND I = 1 THEN 920 
IF € LEN CAS) > LO(I)} OR (AS = “”" 

AND I > 1) THEN GOSUB 72:AS = “" 
: FOR II = I TO NL: VTAB II + VV: 
CALL - 9358: PRINT FIJISCII): NEXT 
: GOTO 310 
ON TYCI) GOSUB 100,200,300,400,500, 
600,610,620,650 
IF ER < > O THEN GOSUB 72:ER = O: 
AS = "“‘“: GOSUB 360: GOTO 9310 
RETURN 
REM GET DES ENTREES 


AS = 


GET RS: GOSUB 71: PRINT RS:: 
5  CHRS (13) THEN 959 
IF RS = CHRS (8) THEN ER = 2: 
359 
AS + 
RETURN 
REM MESSAGES ERREUR 
VTAB 23: INVERSE : PRINT DOS(TY(I)) 
;3: NORMAL : GET AS: VTAB 23: HTAB 
1: CALL - 9S8: RETURN 
END 
REM 


IF RS 
GOTO 


RS: GOTO SSa 


++ ENTREE DES FICHES #.= 
HOME 
VV = 6 
NF = NF + 1 
IF NF > MF THEN NF = 
SE : PRINT 
INTE “: 
GOSUB 65 
VTAB 6: FOR I = 1 TO NL 
VT = VV + I: VTAB VT: HTAB 1: 
FIS(I):. CALL - 958: NEXT 
FOR I = 1 TO NL: GOSUB 900: 
= ‘‘* THEN 1100 
FSC(NF,1) = AS: NEXT : 
NF = NF - 1: GOTO 60 
REM LECTURE FICHES 
AS = 
HOME : GOSUB 66 
VTAB 16: HTAB 1: PRINT " 
VENIR AU MENU ‘: PRINT : 
= TOUTES LES FICHES“ 
VTAB 20: HTAB 1: CALL - 868: 
T “ DONNEZ LE NUMERO “;AS 
IF AS = "“* THEN GOTO 2100 
IF AS = "=" THEN : HOME : 
1 TO NF: GOSUB 700: GET 
: NEXT : GOTO 2100 
NA = VAL (AS): IF NA < 1 
F THEN 2010 
I = NA: HOME : 
OTO .2010 
GOTO 60 
REM 


NF - 1: INVER 
"CAPACITE MAXIMUM ATTE 
NORMAL * GET AS: GOTO 60 

PRINT 


IF AS 


GOTO 1010 


<RTN> RE 
PRINT “ 


INPU 
FOR I - 
AS: PRINT 
OR NA > N 


GOSUB 700: GET AS: G 
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à propos de logiciels … 


VENEZ POSER LES QUESTIONS QUE VOUS VOUS POSEZ … 


Les performances 


Les matériels sur lesquels ils tournent 


- Leurs différences 


Les configurations nécessaires ou souhaîtables 


eLOGICIEES OUTILS - GÉNÉRATEURS D'APPLICATION 


DÉCISION 


TRAITE- 
MENT DE 
TEXTE 


LES 
FICHIERS 


LE 
GRAPHIQUE 
LE DESSIN 


LA 
COMMU- 
NICATION 


VISICALC - VISICAL 80 COL - VISICAL VF 
VISICALC VERSION ANANCÉE - MULTI PLAN 
CALCSTAR SUPERCALCMAGICALCEISACALC 


APPLEWRITER :29-J{e-#. 
MAGICWINDOW - PLUME - LISAWRITE 
WORDSTAR - MOTUS … 


PFS-PFS REPORT-DATAPLAN-DESKTOPPLAN 
QUIOQFILE - VISIFILE - VISIDEX 
DBASE JC - LISALIST - DATASTAR -INFOSTAR 


COPYGRAPH EPSONGRAPH CEEMAC 
APPLEGRAPHICS - BUSINESS GRAPHICS 
PFS GRAPH - LISAGRAPH - LISADRAW … 


COMEWARE - CALVADOS 
{banque données) 
ACCES # - IBM REFORMATEUR 


@ LOGICIELS D'APPLICATION 


COMPTA 
BILITÉ 


FACTURA- 
TION 
STOCK 
PAYE 
BIBLIO 
Ÿ 
je? 
oŸ 
\ 


ENQUETE 


OMEGAS - COMPTA #- COMPTA #intégrée 
MACOMPTA - MICROCIEL - ORDIOUEST 


FAC #- GESTER 
MASTOCXK - STOCK # 
COMTAINER 


PEGASE - MAPAYE - GIPS! 


« Le documentaliste » 

Logiciel de gestion documentaire permettant 
la recherche rapide d'une fiche bibliogra- 
phique faisant référence à un livre, un 
volume, un magazine, une publication et 
comportant 7 clés d'accès {2 noms d'auteurs 
1 nom d'ouvrage, 4 mots-clés). 


Dépouiltement d'enquêtes, questionnaires, 
sondages, études marketing. Déroulement 
du questionnaire - tri à plat - tris croisés. 
Corrections questionnaires et réponses. 


Logiciel complet de gestion d'un cabinet 
d'assurances - trésorerie - police- risques 
fichiers assurés. 


© LOGICIELS SYSTEME & LANGAGE 


DOS - MEM/DOS - CP/M 
BASIC - PASCAL - FORTRAN - COBOL 


STAGES PASCAL : nous consulter 


ALTI 


39, rue Barrier 
69006 LYON (7) 824 0003 





3000 REM ee MODIFICATION FICHE ### 3150 FOR I = 1 TO NL 


3001 AS = *” 3152 GOSUB 900 
3010 TEXT : HOME : GOSUB 66 3155 IF AS = ““ THEN 3152 
3020 VTAB 16: HTAB 1: PRINT ‘® <RTN> RE | 3160 FS(NA,I) = AS: NEXT : PRINT : PRINT 
VENIR AU MENU “: PRINT “PRESSEZ UNE TOUCHE “;: GET AS: 
3030 VTAB 20: HTAB 1: CALL - 868: INPU GOTO 3000 
T “ NUMERO DE LA FICHE A MODIFIER | 3999 REX 
“as 4000 REM *** SAUVER LE FICHIER + 
3031 IF AS = ‘““ THEN GOTO 60 4001 HOME : VTAB 20: PRINT UN IN 
3040 NA = VAL CAS): IF NA < 1 OR NA > N STANT SVP " 
F THEN 3010 4010 PRINT OS: PRINT WS: PRINT NF: FOR 
3050 I = NA: HOME : GOSUB 740: PRINT :VV I = 1 TO NF: FOR J = 1 TO NL: PRI 
= PEEK (37) NT FS(I,J): NEXT : NEXT : PRINT C 
3060 VTAB VV: HTAB 5: CALL - 868: PRIN s 
T “ON MODIFIE CETTE FICHE NO ‘“;N4A | 4020 GOTO 60 
5 “2: INVERSE : PRINT “O/N“;: NO | 5000 REM FINIR 
RMAL : PRINT ‘ “;: GET AS: IF AS | 5010 HOME : VTAB 20: HTAB 1: CALL - 95 
< > “O" AND AS < > “N' THEN 306 8: PRINT “ AVEZ VOUS SAUVE LE FIC 
o HIER “;: INVERSE : PRINT “O/N°;:: 
3070 IF AS = “N“ THEN 3000 NORMAL : PRINT * “;: GET AS: IF A 
3080 VV = PEEK (37) + 1: IF NL < 10 THE S < > “O" AND AS < > “N“ THEN 5 
N VV = VV + 2 010 
3130 FOR I = 1 TO NL 5020 IF A# = “N" THEN 60 
3140 VT = VV + I: VTAB VT: HTAB 1: PRINT | 5030 VTAB 20: HTAB 1: CALL - 958: PRIN 
FIS(I): CALL - 958: NEXT T " AU REVOIR: :..:%#) END 
éati i 40 VTAB 20: HTAB 1: CALL - 868: PRINT 
Création de la fiche “ EXACT";: INVERSE : PRINT “O/N‘; 
: NORMAL : PRINT “ “:: GET AS: IF 
1 DIM FIS(10).LO(10).TY(10) AS < > “O‘* AND AS € > “N" THEN 
2 HOME : VTAB 20: INPUT “NOM DU FICHIER 40 
“>FFS, 45 IF AS = “N* THEN HOME :I = O: GOTO 
3 FFS = FFS + ‘“ MEMO" 20 
4 DIH DOS(11) 46 HOME : VTAB 3: PRINT “DONNEZ LE TYPE 
M SDS - CHRS (13) + CHRS (4) DES ENTREES “: PRINT : PRINT : P 
WU  70S - Ds + "OPEN" + FFS:WS = DS + “WRIT RINT 
Es] E“ + FFS:IRS = DS + “READ" + FFS:C | SO FOR I = 1 TO 11: IF I < 10 THEN PRI 
= S = DS + "CLOSE" + FFS NT"O" 
“ 2 HOME : INVERSE : PRINT * CREAT | 55 PRINT I:* “;DOS(ID: NEXT 
5] ION DE LA FICHE": NORMAL : POKE 3 | 60 FOR I = 1 TO NL 
252 61 VTAB 20: HTAB 1: CALL - 868: INVERS 
“ 9 DOS(2) = ‘"’NUMERIQUE":DOS(1) = ‘ALPHA* E : PRINT FS(I);: NORMAL : PRINT 
= + DOS(2):D0S(3) = “NUMERIQUE ENTI “ #;: INPUT “ TYPE N@ ‘“: NO 
#1 ER‘:DOS(4) = “DATE’JJ/MM/AA’ OU ‘ | 65 IF NO < 1 OR NO > 11 THEN 61 
2 INCONNUE‘":DOS(5) = * DE LONGUEUR | 66 TY(I) = NO 


Le 


IMPOSEE":DOS(6) = DOS(1} + DOS(S 67 NEXT 
):D0$(7) = DOS(2) + DOS(S) :DOS(8) 70 HOME : PRINT : PRINT : HTAB 10: PRIN 


= 
CR 


= DOS$(3) + DOS(S) T “FORMAT DES ENTREES": PRINT : P 
10 DOS(9) = ‘“ A DEFINIR ET A PROGRAMMER" RINT : FOR I = 1 TO NL: PRINT FS( 
:DOS(10) = DOS(9):D0OS(11) = DOS(1 1):: HTAB HT: PRINT BOSCTY(ID}: N 
0) EXT 
20 VTAB 10: HTAB 1: CALL - 9S8:I = I + 71 VTAB 20: HTAB 1: CALL - 868: PRINT 
1: PRINT ‘“ DONNEZ LE NOM DE LA L “ EXACT"; : INVERSE : PRINT “O/N‘; 
IGNE NO “:1 : NORMAL : PRINT “ ‘;: GET AS: IF 
235 PRINT : INPUT “* “?FS(CI) AS < > “O"* AND AS < > “N° THEN 
26 IF FSCI) = ‘‘" THEN NL = I - 1: GOTO 71 
30 72 IF AS = ‘“N'' THEN 46 
27 IF I < 10 THEN GOTO 20 80 HOME : PRINT ‘DONNEZ LA LONGUEUR MAX 
28 IF I = 10 THEN NL = 10 DES ENTREES ‘“: PRINT : INVERSE : 
30 HH = O:HT = O: HOME : FOR I = 1 TO NL PRINT 39 - HT;: NORMAL : PRINT “ 
: PRINT FSCI)D:HH = LEN (FS(I)): CARACTERES AU MAXIMUM" 
IF HH > HT THEN HT = HH 90 VV = 6: FOR I = 1 TO NL 
31 NEXT :HT = HT + 2 92 VTAB VV + I: HTAB 1: CALL - 868: PR 
32 PRINT : PRINT “LONGUEUR MAX DISPONIB INT FS(I1):;:: HTAB HT: INPUT ‘ LONG 
LE POUR L°’ ENTREE": PRINT : PRINT UEUR ‘*: NO: IF NO < 1 OR NO > 39 - 
“ DES DONNEES ‘‘;: INVERSE : PRI HT THEN GOTO 92 
NT 33 - HT;: NORMAL : PRINT ‘ CAR 33 IF TYCI) = 4 THEN NO = 8 
ACTERES"* 396 VTAB VV + I: HTAB HT: CALL - 868: F 


AE LEE EEE 
10 Pom's n° 8 





| 


OR Q = 1 TO NO: PRINT ‘-"“;:: NEXT 
SLO(I) = NO 

37 NEXT 

38 VTAB 20: HTAB 1: CALL - 868: PRINT 
“" EXACT" ;: INVERSE : PRINT “O/N''; 
: NORMAL : PRINT ‘“ ‘’:: GET AS: IF 
AS < > ‘“O" AND AS < > ‘“N'"' THEN 
38 


Utilisation du fichier 


3 REM »### UTILISATION DU FICHIER ### 
2 REM «*x NOM DU FICHIER LIGNE 3 ### 
3 FF$ = “XXXX'': KOCTET = 10000 
4 TEXT : HOME 
S DS = CHRS (13) + CHRS (4) 
6 F1S = FFS + “ MEMO":FFS = FFS + "“ FICH 
IER" 
7 01$ = DS + "OPEN" + FI1S:R1S = DS + "RE 
AD'" + FIS:CTS = DS + "CLOSE" +. F1 
s 
8 O$ = DS + “OPEN" + FFS:RS = DS + “READ 
" + FFS:CS = DS + "CLOSE" + FFS:4 
S = »S + “"WRITE" + FFS 
10 DATA JANVIER ,FEVRIER ,MARS 
»s AVRIL » MAI » JUIN 
» JUILLET  , AOÛT » SEPTEMBRE, OC 
TOBRE ,NOVEMBRE ,'"DECEMBRE ‘“: DI 
M MS(12): FOR I = 1 TO 12: READ M 
S(1): NEXT 
11 MUS = “300:02 O2 AD 30 CO 88 DO O5 cC 
E 01 03 FO O3 CA DO FS AE OO O3 4 
C 02 03 60 NDSC6G": FOR I = 1 TO 
LEN (MUS): POKE 511 + I, ASC « M 
IDS CMHUS,1I,1)) + 128: NEXT : POKE 
72,0: CALL - 144 
19 REM 
20 DATA TRAITEMENT NO 1,TRAITEMENT NO 2 
» TRAITEMENT NO 3,TRAITEMENT NO 4, 
ETC ire ss #2 
21 DIM MES(10) 
22 MN = MN + 1: READ MESCMN)D: IF MES(CMN) 
< > ‘*>" THEN 22 
23 MN = MN - 1: IF MN > 10 THEN INVERSE 
: PRINT “TROP DE LIGNES ‘*: NORMA 
L ‘ END 
29 REX 


35 ONERR GOTO 39 

36 PRINT DS"VERIFY"F1S 

37 GOTO 40 

33 HOME : PRINT “ 
E “‘ END 

40 POKE 216,0 

41 PRINT OS: PRINT R1S: INPUT NL: 
T HT: FOR I = 1 TO NL: INPUT 
1): INPUT TY(CID: INPUT LO(I): 
T : PRINT Cis 

46 PRINT “UN INSTANT SVP 
1119:5+ :PEEK 112) 
K:-C(109): + _PEEK 

1 = 1 TO NL:B = 


IL FAUT CREER LA FICH 


INPU 
FIS( 
NEX 


"SA = € PEEK € 

# 256) - € PEE 

{110) # 256): FOR 

LOCI) + B: NEXT 
:ME = INT CCA - KOCTET) / (B + 7 
# NL)35 IF NF > MF THEN NF = MF 

47 IF NF > MF THEN MF = NF 

48 DIM FS<MF,NL) 

50 REM LIRE LE FICHIER EXISTANT 

51 ONERR GOTO S7 


Pom's n° 8 


393 IF AS = “N“ THEN 80 

100 HOME : VTAB 20: PRINT “UN INSTANT... 

110 PRINT OS: PRINT WS: PRINT NL: PRINT 
HT: FOR I = 1 TO NL: PRINT FS(I) 
: PRINT TY(CI): PRINT LO(I): NEXT 
: PRINT CS 

S2 PRINT DS"VERIFY"FFS 

S3 PRINT OS: PRINT RS: INPUT NF 

56 FOR I = 1 TO NF: FOR J = 1 TO NL: IN 
PUT FS{I1,J): NEXT : NEXT : PRINT 
CS: GOTO 58 

57 PRINT “IL N°’Y A PAS DE “:FFS: PRINT 
ee SUR LA DISQUETE‘": END 

58 POKE 216,0 

S3 REM 

«rx MENU ##x 

60 TEXT : HOME : INVERSE : HTAB 20 - L 
EN CFFS) / 2: PRINT FFS: NORMAL : 
POKE 34,2: VTAB 10 

61 FOR I = 1 TO MN: INVERSE : PRINT 1l;:" 
—">:: NORMAL : PRINT MES(I): NEXT 
: PRINT :VM = PEEK (37) + 2 

62 VTAB VM: PRINT ‘“ VOTRE CHOIX ‘“': 

63 VTAB VM: HTAB 17: CALL - 868: GET A 
S:A = VAL (AS): IF À < 1 OR A ? 
MN THEN 63 


64 ON A GOTO 1000,2000,3000,4000,5000,6 
080, 7000,8000,9000,10000: REM 


CARTES D’ENTRÉES 
ANALOGIQUES 
COMPATIBLES - APPLE‘ 















* Nombre d'entrées : 16SE - 8D1 ou 4 entrées isolées à 250 V 


* Entrée + 10mV à +10 V 
* Résalutien 12 - 14 - 16 bits 
* Vitesse de 15 kHz à 135 kHz avec DMA LL 
Options : - Gain programmable BAC AISÉE 
- Contrôleur de DMA F aAN 
— Programme de tests 
- Logiciels 
En standard : Horloge temps réel programmable 
DES CENTRALES DE MESURE COMPLETES 
ETUDIÉES SUR CAHIER DES CHARGES 
Catalogues et notices techniques : 


Sacasa 


societé applications composants actifs 
ei systèmes associés 


2, rue de l'Avenir 
92360 Meudon-Lla-Forêt 
Tél. : (1) 630.68.39 - Téiex : 205157 








éoub 448 





+ 


; 


PEAU TEST 
btiviresés 


IE 


f 
Li 


S.E.P. Marketing 





e La division de la longueur des program- 
mes par 20. 
e La possibilité réelle de dessiner ses mas- 
ques de saisie ou d'impression. 
e Une indépendance totale de la périphérie 
choisie par rapport au système. 
e L'intégralité du système contenu sur une carte 
mémoire de 20 K. 
+ Une gestion de mémoire de 140 K à 120 mégas. 
e Des utilitaires déterminants 
- un générateur de programmes de ges- 
tion de fichiers permettant même le séquentiel 
indexé multiclé 
- un générateur d'écrans. 


D.S.A. INFORMATIQUE MICRO ALPHA SOFT 


5, bd Dubouchäge 
06000 NICE 
Tét. (93) 85.15.96 


SEEMI 


25200 MONTBELIARD 


Tél. (81) 97.16.46 Tél. (40) 75.52.80 


11, impasse du Lacquet 61, rue Ch. Rivière - B.P. 0701 22, rue des 3 Pierres: 
44401 REZE CEDEX 


Carte MEM/DOS 6502 


LE SYSTEME D'EXPLOITATION 
DU 6502 - MONOPOSTE/MULTIPOSTE 


e CALL FN, une nouvelle commande basic, très 
puissante, intégrée au système permettant 
l'appel des sous-programmes par noms avec 
passage de paramètres et variables locales. 

e Une version multiposte assurant la mise en 
commun totale des ressources sans conflit et 
l'autonomie des postes intelligents disposant 
de leur propre unité centrale. 

e Des programmes compatibles APPLE IC et 
APPLE f/Jautomatiquement transférables sur 
COMMODORE 8096. 

eEt pour demain, des logiciels développés 
aujourd'hui directement compatibles avec le 
réseau local memnet. 


}micro 
informatique 
@C_ service 


3, rue Meyerbeer - 06000 NICE - Télex 461 916 F 


G.B 
CLC.C: BENELUX 
Grove house  MEGAVOLT S.A. 


the bordage Rue de Bleurmont 
St Peter Port 32B 

B 4920 EMBOURG 
(041) 43.01.28 


MICROMEGAS 


69007 LYON 
Tél. (7) 861.19.52 GUERNSEY 


(0481) 20155 





Applesoft n'aime guère les nombres 

qui comportent trop de chiffres : si 

vous ne l'avez pas encore constaté, 

vous risquez fort d’en faire les frais 
| un jour ou l'autre ! 


Ainsi, Applesoft n'affiche jamais plus 
de 9 chiffres et n'effectue pas davan- 
tage de calculs justes au-delà de cette 
limite. Jusqu'à un certain point, le 
problème se limite à des arrondis in- 
tempestifs et souvent curieux; ensuite 
tous les nombres sont représentés en 
notation scientifique (Cf pages 31 à 
33 du manuel de référence Apple Il 
Plus pour plus de détails). 
Mais pour certaines applications. et 
typiquement dans les problèmes de 
gestion, il peut être nécessaire d'ob- 
tenir des calculs justes “au centime”, 
et de voir 999 999.999,99” comme 
résultat d’une addition plutôt que 
"1E09”. 


L'ensemble des routines présenté ci- 
après permet de réaliser des addi- 
tons et des soustractions au format 
gestion, en traitant les nombres 
comme des chaînes de caractères {ce 
qui autorise tout de même 254 chif- 
fres par nombre !). Quelques explica- 
tions doivent suffire pour en analyser 
le mécanisme et les principes d'utili- 
sation. 


- Lignes 20 à 26 : tout nombre rangé 
en M$ et comportant au plus 2 déci- 
males est ajusté à un format unique 
comportant exactement 2 décimales; 
si nécessaire, un zéro est ajouté de- 
vant le point décimal. 
A noter que l’utilisation des routines 
suppose que tous les nombres traités 
| sont en notation anglo-saxonne et ne 
comportent effectivement pas plus de 
4 2 décimales. C'est évidemment dans 
la procédure de saisie des données, 


Routines de calcul 
29 © 29 
en ‘Format Gestion” cc. 


par l'analyse des chaînes de caractè- 
res fournies, que le respect de cette 
règle doit être contrôlé. 


- Lignes 30 à 42 : routine d’addition. 
Les deux nombres à additionner sont 
stockés dans Z1$ et Z2$,. Il s'agit fi- 
nalement de réaliser l'addition 


comme à la main, chiffre par chiffre, 
en tenant compte des retenues éven- 
tuelles. Ces retenues sont détectées 
lorsque la longueur de la variable ré- 





sultit M$ est égale au nombre de 
chiffres traités Zi, Vv compris celui qui 
est en cours de traitement (lignes 38 
et 40). 


- Lignes 50 à 70: routine de sous- 
traction. Mêmes principes que ci- 
dessus, mais la procédure est un peu 
plus compliquée, au début comme à 
la fin. 

Tout d'abord, on ne peut pas tou- 
jours utiliser la fonction VAL pour 


déterminer quel est le plus grand 
nombre des deux. En effet, pour des 
grands nombres qui ne différeraient 
que par les décimales, par exemple, 
la valeur retournée par VAL serait 
identique. Il est donc parfois néces- 
saire d'examiner le problème chiffre 
par chiffre (lignes 50 à 53). 

Par ailleurs, il faut tenir compte des 
retenues en chaîne éventuelles lors- 
que le plus petit des deux nombres 


sa très inférieur à l’autre {lignes 66 à 
70). 


- Lignes 80 à 84: cette routine est 
utilisée pour l'affichage des résultats 
en notation française avec virgule de 
décimalisation et points pour les puis- 
sances de mille. 


- Le début du programme (lignes 10 
à 17) foummit quelques exemples de 
démonstration avec des nombres gé- 
nérés de façon aléatoire. 


Exemple d’exécution 
du programme 


11+22=8. 28161808€+10 
11-12=-5,07044131E+10 


2201:5883851.:6 608002969625. 
2201588585:.16 608009296963. 33 


1:$+72$=82816180814. 49 
82.816. 180. 814,49 
11$-12$=-38704413112, 17 


-38. 784.413, 112, 17 





S  REM 


D 


: PRINT Z1S,Z2S: PRINT : GOSUB 30 
| ee de 16 PRINT “Z1S+22$-"MS: GOSUB 80: PRINT 
: PRINT MS: PRINT : GOSUB 50: PRI 
10 FOR U = 1 TO 10:Z1 = INT € RND CU) NT “Z1S-Z2S="MS: GOSUB 80: PRINT 
# 1000000 * RND (1) / 100:Z1S = : PRINT MS: PRINT : GET Z$: NEXT 
. STRS (21):Z1 = INT (Z1 « RND | 17 END 
(12 # 1000):Z1S = STRS (Z1) + Z1 19 REM 
5:22 = INT € RND CU) * 1000000 + nes ROUTINE DE CALCUL »e* 
RND (1)) / 100:22S = STRS (22) 
:Z2 = INT (Z2 « RND (1) »« 1000) | 20 IO = O: FOR I = LEN (MS) TO 1 STEP 
11 22$ = STRS (22) + 225 - 1:2S = MIDS (MS,11): IF 2$ = 
13 PRINT :21 = VAL (218):Z22 = VAL (22 “,% THEN, 10: = JT = 1 
S): INVERSE : PRINT “Z1+Z22="21 + | 22 NEXT : IF 10 = O THEN MS = MS + “.00 
22: PRINT “Z1-Z2-"Z1 - Z2: NORMAL “: RETURN 
: PRINT 24 IF 1O = LEN (MS) - 1 THEN MS = MS + 
15 PRINT Z1$,Z2S:MS = Z1S: GOSUB 20:215 voA 
= MS:MS = 228: GOSUB 20:225 = Ms | 25 IF 10 = 1 THEN MS = “o“ + ms 
À 
Porm's n° 8 13 


3: 


ii hett 


VIN 


26 RETURN = 21 + 1°: IF C2S = “." THEN 21 = 
23 REM Z1 - 1: GOTO S8 
an. ADDITION nn 55 C2 = VAL (C2S): IF LEN CMS) = Z1 TH 
EN C2 = C2 + VAL ( LEFTS (MS,1)) 
30 21 = O0!:Z = OMS = “":L = LEN (Z1S):M :MS =  MIDS (MS,2) 
15 = Z21S:M2$ = Z22S: IF LEN (225) S6 C1S = MIDS CM1S,L - Z + 1,1):C1 = V 
> L THEN L = LEN (Z2S):MiS = 22 AL (C1S):C1 = C1 + 20 # (C2 > C1) 
S:M2S = 21S :CS = STRS (C1 - C2):MS = CS + M 
32. "FORT = L TO: 1 STEP, = 1:27 = 7 + 1:2 5 
1 = 21 + 1:C1S = MIDS (M1S,1I,1): 58 NEXT :M$ = LEFTS (MS, LEN (MS - 2) 
IF C1S = “." THEN Z1 = Z1 - 1: G + “,." + RIGHTS (MS,2): IF L >2Z 
OTO 42 AND LEN (MS) = Z THEN MS = LEF 
34 IF Z > EEN (M2S) THEN C2S = ““: GOT TS (M1S,L - Z) + M$: GOTO 60 
0 38 S9 IF L > 2 THEN GOSUB 66 
36 C2$ = MIDS (CM2S, LEN CM2S) - Z + 1,1 60 IF LEFTS (MS,1) = ‘’O* AND LEFTS CA 
) S,2) < > ‘"O." THEN M$ = MIDS CM 
38 CS = STRS ( VAL (C1S) + VAL (CC2S)): $,2): GOTO 60 
IF LEN (M$) < Z1 THEN MS = CS + 62 IF M1S = Z2$S AND Z1$ < > 22S THEN M 
MS: GOTO 42 S$ = "=" + MS 
40 CS = STRS ( VAL (CS) + VAL € LEFTS 64 RETURN 
CMS,1))3):MS = CS + MIDS (MS,2) 66 C1 = VAL € MIDS CM1S,L - Z,1)):C2 = 
42 NEXT :MS = LEFTS (MS, LEN CMS) - 2) VAL ( LEFTS (M$S,1)):C = C1 + 20 
+ ",% + RIGHTS (MS,2): RETURN n'CC2:5: C1) =" C2:2 = 7 + Î:MS = 
49 REX STRS (C) + MIDS (MS,2): IF Z = L 
*ar SOUSTRACTION ### THEN RETURN 
68 IF C < 10 THEN MS = LEFTS (M1S,L - 
SO Z:= O!21:= 0:MS = “‘’°L'= (LEN. (21S):hM Z) + MS: RETURN 
1$ = Z1S:M2$ = Z2$: IF LEN (Z15) 70 GOTO 66 
< > LEN (Z25) OR VAL (Z1S) « 79 REM 
> VAL (Z2S) OR Z1S = Z2S THEN 5 an AFFICHAGE #2 
3 
S1 FOR I = 1 TO L: IF VAL ( MIDS (225, 80 Z = 1:MS = LEFTS (MS, LEN CMS) - 3) 
1,122 > VAL € MIDS (Z1S,1,1)> TH + "," + RIGHTS (MS,2):SS = ""2: I 
EN M1S = Z2S:M2$S = Z1S:1 = L F LEFTS (MS,1) = "“-" THEN S$s = * 
S2 NEXT : GOTO 54 -":MS = MIDS (MS,2) 
53 IF VAL (22$) > VAL (Z1S) OR LEN « 82 IF LEN (MS) < = 2 + 4 » Z THEN MS 
Z2S) > L THEN L = LEN (Z2$):M1S = S$ + MS: RETURN 
= Z2S$:M2$ = 2Z1S 84 MS = LEFTS (MS, LEN (MS) - 2 - 4» Z 
S4 FOR I = LEN (M2S) TO 1 STEP - 1:C2 ) + ‘,." + RIGHTS (MS,2 + 4 + Z): 
$S = MIDS (M2S$,1,1):2 = Z + 1:21 Z = Z + 1: GOTO 82 


Bibliographie 


de H. 
192 


Pratique de lApple II, 
Lilen, aux Editions Radio - 
pages, 80 FF. 


Comme de nombreux autres ouvra- 
ges de H. Lilen, il s’agit ici d’un ou- 
vrage clair à la présentation soignée. 
Il est déjà sorti depuis quelque 
temps, mais nous n'avions pas en- 
core eu l’occasion de le consulter. 
C'est un bon livre de démarrage, 
pour ceux qui débutent complète- 
ment. Malheureusement, l'Apple //e 
n'est pas encore couvert par cet ou- 
vrage : cela ne devrait rien changer 
pour l'Applesoft; par contre, la ges- 
tion du clavier est assez différente. 


Eléments de programmation, de 
Jacques Schmit, aux Editions Evrol- 
les - 344 pages, 148 FF. 


Ce pavé, à l’aide de nombreux 
exemples en BASIC, enseigne le dé- 
coupement d'un programme à écrire 
en tâches, montre comment on par- 
vient à la construction d’organigram- 


mes. La réalisation par étapes d’un 
programme de comptabilité est un 
exemple approfondi présenté dans 
les 90 dernières pages. 


Je reproche à ce livre, comme à 
d’autres d’ailleurs, de ne pas prévenir 
le lecteur qu'il y a plusieurs BASIC : 
nous ne savons même pas qua le 
BASIC Microsoft est celui utilisé par 
cet ouvrage. N vous faudra donc 
adapter les programmes pour les 
transcrire en Applesoft. 


Clefs pour l’Apple Il, de Nicole 
Bréaud-Pouliquen, aux Editions du 
PSI - 143 pages, 92 FF. 


Avec le "BASIC Applesoft - Manuel 
de référence alphabétique” de Paul 
Merry édité par Mnémodyne et "Visi- 
calc sur Apple” d'Hervé Thiriez aux 
Editions du PSI, ce livre est pour moi 
le troisième ‘’must” de tout Appleo- 
mane. 
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Alexandre Duback 


Comme le souligne sa publicité, il 
s'agit d’un ouvrage destiné à rester 
près de votre Apple: il répertorie 
tous les mots-clés du BASIC, du mo- 
niteur et du DOS, la syntaxe de leur 
utilisation et les messages d'erreur. Il 
vous fournit plein de bonnes adres- 
ses, et offre en prime de nombreux 
trucs et astuces, dont plusieurs sont 
déjà connus des lecteurs assidus de 
Pom's. 


Je n'ai que deux remarques à faire : 
j'aurais aussi aimé voir un classement 
des erreurs par numéro, et non seu- 
lement par ordre alphabétique. Enfin. 
mes veux auraient apprécié des sor- 
ties sur imprimante réalisées en qua- 
lité courrier, ou pour le moins avec 
un ruban neuf … 


En conclusion, il s’agit d’un excellent 
ouvrage que je recommande chaude- 
ment à tous. ceux chez qui l'Apple est 
autre chose qu'un simple élément 
décoratif. 
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Recherche de codes binaires 


Ï m'arrive souvent d’avoir à analyser 
un programme en langage machine 
que je n'ai pas écrit. Pour pouvoir 
s'y retrouver, il est nécessaire de re- 
pérer des codes connus. Ainsi, le 
code ‘20 58 FC” (HOME en Basic) 
est un bon repère, car on sait qu’à 
ce moment l'écran est effacé. Le 


code 20” (JSR) n'est pas important 
en soi, mais "58 FC” (adresse moni- 
teur $FCS58) doit être repéré. 


ll est très long et fatigant d’éplucher 
le programme pour retrouver des 
codes binaires, alors qu'il suffit de 
laisser l'ordinateur travailler tout seul. 


Guido Bettiol 


Le programme que jai écrit à cet 
effet et que je vous propose ici effec- 
tue la recherche d'un ou de deux 
octets, et imprime éventuellement le 
résultat de sa recherche. 

Il est possible de fractionner la re- 
cherche en choisissant les adresses 
de début et de fin de celle-ci. 


Recherche de codes binaires LE Me 
450 AL = X - AH * 256 
460 POKE 5,AL 
ILIST 470 VTAB 11: HTAB 20: PRINT “IMPRIMANTE 
? (CO/N) “:2 GET Z2S: PRINT Z22sS 
10 REM 480 IF 22S = “@“ THEN POKE - 16240,17 
= RECHERCHE BE COBES BINAIRES = : PR# 1: PRINT : PRINT : PRINT “C 
*“* GUIDO B. BETTIOL - NOV 82 #» OÉE: Ss":X1S: PRINT 
500 VTAB 13: PRINT "ADRESSES:": PRINT 
50 REM +* ON CHARGE LA SUBROUTINE »* 600 CALL 768 
6O PRINT CHRS (4)"BLOABR OBJ.BCHERCHE" 830 PR# O 
100 TEXT : HOME 300 HTAB 1: VTAB 23: PRINT “PRESSEZ UNE 
110 PRINT ‘xxx RECHERCHE DE CODES BIN TOUCHE POUR CONTINUER “:;: GET XX 
AIRES #2" $S: GOTO 100 
115  REM 1000 REX 
#* ADRESSE DE DEPART »+ #** CONVERSION HEX-->BEC ** 
120 VTAB 4: CALL - 864: INPUT “ABRESSE | 1020 X = 0 
DE BEPART: S":XS 1030 IF XS = “** THEN CALL - 1059: RET 
130 GOSUB 1000 URN 
135 IF XS = “* THEN 120 1040 A1S = LEFTS (XS,1) 
140 AH = INT (X / 256) 1050 X1 = ASC (A1S) 
150 POKE 1,AH 1060 X1 = X1 - 48 
160 AL = X - AH » 256 1070 IF X1 > 3 THEN X1 = X1 - 7 
170 POKE @,AL 1080 IF X1 €< O OR X1 > 15 THEN CALL - 
200 REM 1053:XS = ‘*: GOTO 1000 
n*+ ADRESSE DE FIN + 1090 X =vX + 16 + x1 
210 VTAB 5: CALL - 868: INPUT "ADRESSE | 1100 IF LEN (XS) = 1 THEN RETURN 
FINALE: Ss";: xs 1110 XS = RIGHTS (XS, LEN (XS) - 1) 
220 GOSUB 1000 1120 GOTO 1030 
230 IF XS = ‘“*“ THEN 210 
240 AH = INT (X / 256) 
250 POKE 3,AH 
= as + 
Re a Programme B.CHERCHE 
300 REM 
++ COBE RECHERCHE = #300.35A 
310 VTAB 7: PRINT “CODE RECHERCHE" 
320 VTAB 3 
330 PRINT “1 QU 2 BYTES? (1/2) “:: GET OS00-" A0 
2$: PRINT 2S 0308- F8 
340 IF 25 = "1" THEN POKE 6,0: GOTO 4Q 0310- AS 
s 0318- OO 
350 IF Z2$ = ‘“‘2* THEN POKE 6,128: GOTO 0320- DO 
405 
360 CALL - 1053: GOTO 320 0328- FO 
405 VTAB 11: CALL - 868 0330- 20 
410 INPUT "CODE: S":XxS 0338- 98 
412 X1S5 = XS 0340- 98 
415 GOSUB 1000 0348- FD 
420 IF XS = "" THEN 405 
so tes 4 0350- 07 
425 es 1” THEN POKE 4,X: GOTO 47 de de 
430 AH = INT (X / 256) 
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Formation continue à la micro-informatique 





PHOTO GUNHILD BULL 


Tous nos informaticiens viennent de l'informatique traditionnelle, et en maîtrisent totalement les langages classiques : 
Ils utilisent leur professionnalisme et les méthodes de l'informatique pour réaliser 
des applications professionnelles en micro-informatique. Nous vendons des micro-ordinateurs sans programme. 
Nous vendons aussi des micro-ordinateurs avec les programmes. !l s'agit de programmes réalisés par la société KA, 
dont nous garantissons la qualité et le bon fonctionnement. 
Nos formateurs enseignent l'informatique. L'enseignement de la micro-informatique nécessite des formateurs pro- 
fessionnels, suffisamment de matériel pour que chacun puisse pratiquer, un support de cours couvrant non 
seulement l'enseignement diffusé, mais permettant au participant de s’auto-former après le stage. Nous avons déjà 
accueil de nombreux stagiaires, d'horizons et de centres d'intérêts divers : chefs d'entreprise, universitaires, profes- 
sions libéraies, informaticiens, musiciens compositeurs, retraités, cadres de grandes entreprises, revendeurs de 


Nous proposons 5 possibilités : 


Assembleur, COBOL. FORTRAN 


micro-ordinateurs.. 


& Stage de 2 jours 

bases de données. 

Comment utiliser les progiciels : 
e bases de données 

e manipulateurs de nombres 

et générateurs de tableaux 

e générateurs d'états imprimés 
Application pratique 

(un 48 K + un lecteur de 


disquettes pour deux participants). 


Après ce stage, on peut générer, 
à partir de progiciels, un 
programme totalement adapté 
à son application en moins 
d'une journée de travail. 
Ce stage nécessite de connaître 
la manipulation de l'APPLE II, 
ou d'avoir suivi au minimum 
la journée d'initiation. 
Dates 27-26 juin 

29-30 août 

Prix 2192Fht. 


& Stage de 1 semaine 
de programmation BASIC. 
Il débute par la journée 
d'initiation. 

Le stage permet 
d'assimiler la logique 

de programmation 

et de l'appliquer 

{un Mmicro-système 48K 
pour 2 participants). 

En fin de stage, on sait 
établir un programme 

de gestion de fichier avec 


consultation en temps réel. 


Ce stage ne nécessite pas 
de connaissance de départ 
en informatique 


Dates 

du 20 au 24 juin 
du 18 au 22 juillet 
du 22 au 26 août 
Prix 4245 F ht. 


m Stage 3 jours disquettes. 
Consacré à l'organisation, 

à la programmation et à 
l'exploitation de fichiers 

sur disquettes magnétiques, 
à travers l'étude du Disk 
Operating System APPLE I. 
Travaux pratiques sur 
micro-systèmes (un 48 K + un 
lecteur de disquettes 

pour deux participants}. 

Ce stage nécessite : 

e Soit d'avoir suivi le stage 

de 1 semaine de pragrammation 
au préalable; 

e Soit d'avoir une bonne 
connaissance théorique 

et une sérieuse pratique 

de BASIC de L'APPLE H. 


Dates du 25 au 27 juillet 
du 17 au 19 octobre 
Prix 3378 Fht. 


fi Journée d'initiation - Dates : 20 juin, 18 juillet, 22 aôut - Prix 773 Fh.t. 


Lenombrede places pour chaque stage est strictement limité, à la fois pour la qualité de l’enseignementetparles contraintes du matériel. 
Deux animateurs sont présents pour aider les participants à la réalisation de leurs programmes. 


Un suppori de cours trèscompletestremis à chaque participant. 


& Journées de sensibilisation 
et stages de formation 

à Paris et en Province. 

ls sont organisés 

à la demande 

e d'une instance régionale 
telle, par exemple, 

une Chambre de Commerce; 
e d'un organisme 

de formation 

dans le cadre d'un cycle 
plus vaste de formation; 

e d'une entreprise. 

La société KA 

installe le matériel 

pour la durée 

de la formation, 

assure la formation 

et fournit 

les supports de cours. 


Pour la journée d'initiation et pour les stages, les déjeuners sont pris en commun et compris. 


#4) l'informatique douce: 





I Renseignements et inscriptions à KA - Programme détaillé sur demande. 


212 rue Lecourbe 75015 Paris - Tél. 533.13.50. 
Le calendrier 83 est disponible. 


"L'ntormatique douce” esltuine marque dépasse de la société KA 


Le langage interprété PILOT (Pro- 
gammed Inquiry, Learning Or Tea- 
ching), développé en 1968 a l'uni- 
versisté de San Francisco, est destiné 
à être employé à la réalisation de 
programmes d'EAO (Enseignement 
Assisté par Ordinateur), appelés 
leçons”. Schématiquement, il s’agit 
de faire trois choses essentielles : in- 
former l'élève, lire sa réponse à des 
questions et sauter à un endroit ou à 
un autre de la leçon selon cette ré- 
ponse. 


En 1980, Apple Computer Inc. a pu- 
blié le système Apple PILOT, 
comprenant un PILOT basé sur la 
dernière version du langage, le 
Common PILOT, et quatre éditeurs : 


. l'éditeur de texte, pour écrire les 
programmes; 

. l'éditeur de dessins, éventuellement 
appelés par le programme: 

. le générateur de caractères. PILOT 
écrit en effet sur la page graphique 
haute résolution, ce qui nécessite des 
caractères générés par SOFT et non 
par HARD comme pour la page 
texte; 

. l'éditeur de sons et d'æ'rs musicaux 
que le programme peut appeler. 


Le tout a été développé grâce au 
système Pascal. Toutefois, pour utili- 
ser Apple PILOT, ni la connaissance 
du langage Pascal, ni la carte langage 
ne sont nécessaires, bien que les 
possesseurs du Pascal Apple puis- 
sent, avec le système Pascal, lire les 
catalogues des disquettes PILOT et 
éditer directement les textes écrits en 
PILOT. 


Puis, l’année dernière, Apple a pu- 
blié le système SuperPILOT, version 
améliorée du précédent : des instruc- 
tons ont été ajoutées au langage, les 
éditeurs sont plus performants et plus 
rapides, mais la carte langage est 
cette fois indispensable, afin d'aug- 
menter la capacité de mémoire vive 
du système. 


Le langage PILOT 


D'un point de vue purement infor- 
matique, PILOT est un très mauvais 
langage, qui développe de vilaines 
habitudes chez le programmeur. Mais 
il a acquis une très grande popularité 
car, ne possédant qu’une dizaine de 
commandes principales, il est très fa- 
cile à apprendre pour le non-infor- 
maticien, et il est spécialement étudié 
pour les applications à l’enseigne- 
ment. dJugez-en vous-même par 
l'étude comparative de ses instruc- 
tions avec BASIC ou Pascal (voir 
plus bas). 


Les principales commandes du lan- 
gage sont Remark, Type. Accept, 
Match, Jump, Use, End, Link, Di- 
mension, Compute. Apple PILOT 
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PILOT et SuperPILOT 


au banc d’essai 


et Apple SuperPILOT possèdent de 
plus des instructions graphiques, so- 
nores et de gestion de fichiers, dont 
la possibilité d'exécuter des dessins et 
des airs de musique créés par les édi- 
teurs et stockés sur disque. 


Une instruction PILOT comprend 
une étiquette éventuelle, l'initiale ou 
les deux premières lettres de la 
commande, un ‘’modificateur” éven- 
tuel qui change légèrement le sens 
de la commande (eXact ou Single 
pour Accept, Jump pour Match...) 


Olivier Herz 


un ”conditionneur” éventuel qui éta- 
blit un test en rapport avec la 
commande (Yes, No, Error... ou une 
expression comme (N > 13), le 
symbole ”:” et enfin l'objet de l'ins- 
truction dont la syntaxe dépend de 
cette dernière. 


Le petit programme ci-dessous écrit 


en SuperPILOT vous permettra de 
comprendre sa syntaxe. Afin de vous 
donner les mêmes chances qu’à 
Champollion, je vous fournis aussi la 
traduction en BASIC et en Pascal. 


Programme en SuperPILOT Programme en BASIC Applesoft 


R: C’EST UN EXEMPLE 

T: ENTREZ VOTRE NOM 

A: SNS 

T: BONJOUR, $N$ 

M: OLIVIERIHERZ 

JV: DEBUT 

C: 1=1982+ 

T: POWS VCUS ADRESSE SES 
VOEUX POUR 4A 

#DEBUT 

U: JEU 


10 REN C'EST UN EXEMP:E 

20 PRINT "ENTREZ VOTRE NOT“ 

30 INPUT N$ 

40 PRINT “BONJOUR, ":N$ 

40 BON=(N$="OLIVIER" DR N$="HERZ") 
50 IF BON THEN 100 

60 A=1982+1 

70 PRINT “P0M S VOUS ADRESSE SES 


VOEUX POUR ":A 


100 G68SUB 1000 


Programme en Pascal 


VAR NOM:STRING: 
ANNEE : INTEGER: 
BON: BOOLEAN : 
BEGIN 
(C'EST UN EXEMDL EE) 
WRITRAN ('ENTNEZ VOTRE NOK’): 
READLN (NO) : 
MRITELN (BONJOUR, ”,\ 
BON:= (NOM=" OLIVIER’) 0 
IF NOT BON THEN 
BEGIN 
ANNEE += 1982+1 « 


O*}; 
R (NCM='HERT); 


WRITELN (POM''S VOUS ADESSS SES VIE-X OUR ?, ANNEE) ; 


END: 
JEU: 
END: 





ORSINT 


ESP de 


UN 
Vesmésutd bi me me Mn 2 à à 





Fonctionnement du sys- 
tème PILOT 


Pour créer des leçons, l'enseignant a 
besoin de deux drives, le premier 
contenant la disquette du système 
PILOT et le second celle où les 
leçons seront écrites. Le système 
boote sur un menu qui offre la possi- 
bilité d'utiliser lun des quatre édi- 
teurs, d’initialiser ou de recopier une 
disquette de leçons. Notons que, 
dans le cas de la copie, il est plus ra- 
pide d'utiliser un programme de 
copie tel que COPYA, car les dis- 
quettes, étant compatibles avec le 
Pascal, sont formatées en 16 sec- 
teurs. Toutefois, la disquette système 
est protégée contre la copie, mais un 
second exemplaire (BACKUP) est 
fourni avec elle. Üne excellente dis- 
quette de leçons de démonstration 
est jointe également. 


Une fois la leçon écrite, l'élève peut 
l'étudier avec un seul drive, car la 
disquette de leçons boote directe- 
ment sur un programme HELLO qui 
affiche les titres des leçons ou qui ap- 
pelle la leçon (ce peut être la leçon 
elle-même). Signalons enfin la possi- 
bilité intéressante pour le professeur 
de tester la leçon en la faisant mar- 
cher, avec des possibilités de déver- 
minage (debugging) étendues car 
PILOT esi comme BASIC un inter- 
préteur interactif. 


Un mot à propos de la documenta- 
tion: comme pour tout produit 
Apple, elle est très bien fournie et 
très claire, sous la forme d’un ma- 
nuel du langage (250 pages) et d’un 
manuel des éditeurs (140 pages), 
tous deux en anglais À quand la 
version française ? 


Les éditeurs 


L'éditeur de texte reprend en partie 
l'éditeur du Pascal Apple, avec quel- 
ques légères modifications : il y a 40 
colonnes au lieu de 80, inversion des 
rôles de CTRL-C et ESC et enfin on 
peut obtenir les minuscules et majus- 
cules, ces dernières étant indiquées 
en mode INVERSE, grâce aux tou- 
ches CTRL-A et CTRL-Z. 


Le générateur de caractères est iden- 
tique à celui de DOS Toolkit, écrit 
en Applesoft. Il permet de définir une 
police de caractères, à la manière du 
programme CRECAR de Guy Ma- 
thieu publié dans ce numéro de 
Pormn's. 


L'éditeur de dessins possède de très 
puissantes commandes : il permet de 
tracer des ellipses et des rectangles, 
de remplir n'importe quelle surface. 
Les dessins peuvent être utilisés 
depuis un programme PILOT, soit en 
étant redessinés à la manière dont ils 


ont été crées, soit en étant chargés 
directement, procédé beaucoup plus 
rapide, mais aussi plus gourmand en 
place sur le disque. La seule ombre 
au ”tableau” de cet éditeur est qu’à 
chaque fois que l’on efface la der- 
nière commande entrée, le dessin 
doit se redessiner entièrement, ce qui 
peut être fort long (cet inconvénient 
disparait avec le SuperPILOT). 


L'éditeur de sons quant à lui permet 
d’éctire des petits morceaux musi- 
caux monophoniques, quelques 
effets spéciaux étant pennis. Comme 
tout éditeur de sons assez simple 
pour Apple, il est très malcommode 
d'emploi. 


Différences entre PILOT 
et SuperPILOT 


En ce qui concerne le langage, on 
trouve dans SuperPILOT une plus 
grande variété dans le contrôle du 
texte à l'écran: simple ou double 
taille, couleurs variées pour le texte 
et le fond, caractères épais ou 
minces, combinaisons logiques entre 
les caractères et l'écran, possibilité 
d’animer des dessins en utilisant des 
polices de caractères spéciales, etc. 
On peut aussi noter la possibilité 
d'enregistrer automatiquement sur 
disque les progrès réalisés par les 
élèves, un mouvement relatif -genre 
tortue-dans les commandes graphi- 
ques, et quelques autres améliora- 
tions de moindre importance (dont la 
possibilité de commander des péri 
phériques audio-visuels tels que les 


Messages de la rédaction 


Hard Copy Seikosha: le pro- 
gramme de hard copy présenté par 
Olivier Herz dans le numéro 7 de 
Pom's a été écrit pour la GP80M. H 
ne fonctionne pas pour la GP100. 
Un lecteur peut-il nous envoyer 
l'adaptation pour la GP100, afin que 
nous puissions la publier ? En effet, 
nous n'avons pas ce modèle sous la 
main. 


Gestion de marques : nous avions 
complètement oublié, quand nous 
vous avons proposé l'article de Gé- 
rard Michel sur la gestion de mas- 
ques, que celui-ci utilisait des mas- 
ques. Îl est en effet indispensable 
pour le faire fonctionner d'avoir la 
disquette d'accompagnement du nu- 
méro 7 où l'on peut les trouver. 
C'est de la vente forcée involontaire ! 
Nous avons hélas constaté ce pro- 
blème trop tard et n'avons pas assez 
de place pour vous donner les mas- 
ques. Îl vous reste deux solutions en 
ce moment: acheter la disquette du 
numéro 7 ou modifier le programme 
Gesmask pour qu'il fonctionne sans 
masque … Pardon! 


MOTPTTTI TS dEeNTT 15 


18 


vidéo-disques). Et surtout, les pro- 
grammes tournent maintenant jus- 
qu'à 10 fois plus vite, ce qui était un 
progrès rendu indispensable par la 
lenteur du PILOT original. 


L'éditeur graphique quant à lui per- 
met d'insérer ou détruire un ordre 
graphique n'importe où dans le dé- 
roulement du dessin, et non plus 
seulement à la fin. On peut aussi re- 
dessiner un dessin à des fins de véri- 
fication, remetbe en place les 
commandes qui avaient été effacées, 
changer l'origine du dessin ou utiliser 
comme fond un autre dessin. De 
plus, cet éditeur est maintenant plu- 
sieurs fois plus rapide dans le tracè 
d’un dessin. 


Les fichiers fourmis par ces éditeurs 
sont pratiquement compatibles d’un 
système à l’autre: il y a peu de modi- 
fications à apporter pour faire tourner 
un programme PILOT en SuperPl- 
LOT. 


Signalons encore qu'on peut avec 
SuperPILOT initialiser une disquette 
de leçons non bootable afin de dis- 
poser de plus de place; il faut alors 
deux diives. On peut en outre ne re- 
copier d’une disquette à l’autre que 
les leçons voulues et non obligatoire- 
ment la disquette toute entière. 


La présence de la carte langage aug- 
mente la capacité mémoire, ce qui 
était bien utile, étant donnée la place 
prise par le système. 


Notons enfin qu'avec tout cela les 
deux manuels ont grossi d'environ 
un quart et que la disquette de 
leçons de démonstration est un peu 
modifiée; signalons aussi la présence 
de deux disquettes de leçons Super 
Co-PILOT 1 et 2 qui constituent un 
excellent cours de SuperPILOT. Le 
petit exemple ci-dessus doit vous 
permettre d'apprécier l'apport de ce 
langage à l'EAO. 


Conclusion 


PILOT, et surtout SuperPILOT, 
constituent une excellente application 
à l'Apple du langage PILOT, grâce 
aux possibilités audio-visuelles extré- 
mement performantes et très faciles à 
metb'e en oeuvre, dont le seul gros 
défaut, atténué dans ie SuperPILOT, 
est la lenteur. 


Les programmes ne résident pas en 
mémoire, mais sont lus sur le disque 
par petits morceaux, ce qui les rend 
extensibles à l'envi. 


Nous conseillons fortement SuperPl- 
LOT à tous ceux qui désirent réaliser 
simplement et rapidement de longs 
programmes d'EAO ou des program- 
mes, interactifs ou non, illustrant les 
capacités graphiques et musicales de 
l'Apple. 
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Accélérez vos programmes 


Afin d'accélérer l'exécution des pro- 
grammes en BASIC, vous pouvez 
appliquer les recettes suivantes. 


1 - Les variables 


Utiliser des variables au lieu de cons- 
tantes. 


2 - Structurer le 
gramme 


pro- 


Mettre les instructions d'autant plus 
haut dans le programme qu'elles ser- 
vent souvent. Ainsi, la structure ”’op- 
timale” d'un programme en BASIC 
est la suivante : 


1. SUBROUTINES 
D'autant plus haut” qu'elles servent 
fréquemment 


2. MENU PRINCIPAL 
Principaux choix de l'utilisateur 


3. CORPS DU PROGRAMME 


4. INITIALISATION 
Initialisation. lecture des tables de ré. 
férence 


Bien entendu, le programme débute 
par un GOTO vers la phase d'initiali- 
sation, laquelle termine par un 
GOTO vers le menu principal. 


3 - Dimensionnement 
dynamique 


Dimensionner les tableaux juste à la 
taille requise, par exemple avec des 
instructions telles que DIM AL), ou 
DIM A(L+ 50) s'il y a par exemple L 
éléments dans la table et que l’on 
n'envisage pas d’en créer plus de 50 
dans une session de travail. Ainsi, 
prenant moins de place en mémoire, 
votre programme tournera plus vite. 


4 - Isoler les REMs 


Prévoir de mettre les REMs sur des 
instructions séparées non adressées 
par des GOTOs ou GOSUBSs. Il sera 
alors possible de les enlever totale- 
ment de la version exécutable du 
programme. 


Si l’on tient à mettre des REMs dans 
des lignes. il faut les mettre en fin de 
ligne, car tout ce qui suit le REM est 
pris comme remarque (y compris des 
*:" de séparation). 






MAINTENANT MON 
PROGRAMME EST 
OPTIMISÉ ! 









5 - Vive les GOSUBs ! 


Utiliser les GOSUBSs chaque fois 
qu'un gros segment de programme 
devrait être reproduit en deux exem- 
plaires où plus. 


6 - Le 
fait. 


Tirer profit du nettoyage rapide de la 
mémoire. Voir à ce titre "Faites le 


ménage, vite 


en BASIC 


Hervé Thiriez 


ménage dans la mémoire” (Pom's 2) 
et Contrôlez le nettoyage mémoire” 
{Pom's 3). 


7 - Compaction du pro- 
gramme 


Une fois le programme mis au point 
et testé, obtenez une version exécu- 
table compactée (voir Courrier des 
Lecteurs de ce numéro, lettre du Dr. 
Rozoy). Si vous possédez un compi- 
lateur, cela vous permettra évidem- 
ment d'accélérer sensiblement l’exé- 
cution du programme. 


8 - Overlay dynamique 


Si votre programme est vraiment 
trop long malgré tout cela, mettez en 
place une structure d'overlay dyna- 
mique (Pom's 1). 


9 - Tableaux numériques 


Il est assez facile d'écrire un pro- 
gramme en assembleur pour effec- 
tuer le STORE et le RECALL rapides 
de tableaux numériques sur dis- 
quette. 


Attention à la 
renumérotation ! 


Si vous utilisez RENUMBER pour re- 
numéroter vos programmes et 
compacter les programmes en numé- 
rotant par exemple avec un pas de 
1, vérifiez tout d'abord que votre RE- 
NUMBER fonctionne bien. 


Essayez de renuméroter le pro- 
gramme à une instruction : 20 A= 
20#20 

Si vous obtenez: 10 A= 20%x10, 
votre RENUMBER a besoin de la ré- 
paration que nous expliquons dans le 
Pom's 2. 





Nous ne pouvions pas ignorer l’arri- 
vée sur le marché français d'un ma- 
tériel compatible Apple, d'autant qu'il 
apporte un certain nombre d'élé- 
ments nouveaux. 


De prime abord, nous découvrons 
un matériel] à la présentation profes- 
sionnelle, sans rapport avec celle de 
notre sympathique Apple Il qui, par 
comparaison, donne l'impression 
d'être la 2CV de la micro-informati- 
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Le Basis 108 à l’essai 


que. Le clavier du Basis 108 
comporte 100 touches (52 sur l'Ap- 
ple 11) dont 9 touches de déplace- 
ment, un bloc de calcul et 15 tou- 
ches de fonction Bien entendu, les 
minuscules sont aussi disponibles. Le 
clavier est séparé du bloc principal 
comportant deux lecteurs de disquet- 


tétèrchstair:rs1;sees 2 [RAESESLIIGES 
Lrhéhéisedreros set te © AE 'LÉEETE 


Hervé Thiriez 


tes, ce qui est la norme des matériels 
professionnels. 


Caractéristiques techni- 


ques 
Pour commencer, nous trouvons 
dans la carte mère deux micropro- 


22 
. = 
&n 
CE 
… 
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cesseurs, un 6502 et un Z80. D'ori- 
gine, la RAM est de 128K, le sys- 
tème comportant en outre un 
moniteur ROM de 2K et cinq sup- 
ports pour ROM ou EPROM de 2K, 
pour un total de 10K de ROM utilisa- 
teur. 


Au niveau du graphique, beaucoup 

de possibilités sympathiques sont of- 

fertes : 

© texte en 40+24 ou 80*x24. 
mode HGR mixte : 280160 avec 
4 lignes de texte (40 ou 80 colon- 
nes) 

e mode HGR complet: 280+192 
avec 6 couleurs 


Il existe trois sorties vidéo distinctes : 
N/B, composite couleur et RGB. 


Au niveau des caractères, il est très 
agréable de pouvoir, avec le Basis 
108, basculer de 40 à 80 colonnes, 
et disposer de quatre polices de ca- 
ractères à l'écran, changeables à vo- 
lonté. 


En standard, on a une sortie parallèle 
8 bits, une interface E/S RS 232C, 6 
p'ises compatibles Apple Il pour 
connexion de périphériques, une 
prise vidéo RGB et composée (PAL 
ou NSTC), … 


Enfin, l'alimentation est plus puis- 
sante que sur l'Apple, ce qui devrait 
permettre d'éviter les problèmes que 
l'on à quand on charge trop l'Apple : 
il y à huit slots mais, selon le type de 
carte que l'on y met, on peut se re- 
trouver incapable de booter avec 
trois ou quatre slots occupés. Nous 
avons déjà dû dans certains cas aug- 
menter la puissance de nos Apples 
pour nous en sortir. 


Démarrage 


Pour des raisons de copyright, le 
Basis 108 n'est pas livré avec le 
Basic, le Pascal ou le CP/M 2.2. Par 
contre, il est aisé, en suivant les ins- 
tructions foumies avec le matériel, de 
constituer les disquettes permettant 
de booter en Basic Integer, en Ap- 
plesoft ou en Pascal, le tout en 40 
ou 80 colonnes. Pour récupérer les 
Basics Integer ou Applesoft, il suffit 
de disposer de la disquette Basics (li- 
vrée avec tout contrôleur). Le boot 
Pascal est créé à partir de la dis- 
quette Apple 1 livrée avec le Pascal. 
Les instructions données par BMI 
pour réaliser ces disquettes de boot 
sont très claires. 


Aspects économiques 


Le Basis 108 tout nu est vendu 
16.480 F HT. En configuration de 
base (hors moniteur), il revient à 


21.341,40 F HT : Basis 108, 1 drive 
avec contrôleur et 1 disquette CP/M 
version 3.0. Le drive sans contrôleur 
est vendu 3.280 F HT. 


Le budget est par conséquent sensi- 
blement plus élevé que celui requis 
par l’acquisition d’un Apple //e. Il est 
vrai qu'on dispose d’un équipement 
compatible CP/M doté d'une présen- 
tation et d'une finition plus profes- 
sionnelles. 


Fabriqué en Allemagne, il est vendu 
depuis peu en France, ce qui ne per- 
met pas encore de tirer de conclu- 
sion sur son pouvoir de pénétration 
du marché, ni sur la qualité du ser- 
vice après-vente. 


Compatibilité Apple II 


Nous avons essayé de nombreux 
programmes sur ce matériel, princi- 
palement avec les systèmes d'exploi- 
tation DOS 3.3 et Pascal. Il n’y a évi- 
demment pas de probième pour faire 
toumer sur le Basis 108 les produits 
CP/M courants tels que Wordstar ou 
Calcstar. 


Nous avons commencé par avoir 
exactement les mêmes difficultés que 
lors de nos débuts avec l'Apple //e: 
on se trompe de touches tout le 
temps, les réflexes de frappe rapide 
sur Apple II Plus ou //e ne convenant 
pas au changement de clavier. Cela 
ne doit pas être gênant une fois que 
l'on s'est accoutumé à ce nouveau 
clavier. 


Avec Applewriter I, nous avons exac- 
tement le même problème que sur 
l'Apple //e : ce logiciel recodant les 
caractères d'écran, les espaces sont 
tous remplacés par une demi-barre 
transversale. C'est désagréable, mais 
n'empêche pas de travailler. Par 
contre, Applewriter //e ne marche 
pas, ce qui est normal puisque le 
Basis 108 est censé être compatible 
avec l'Apple Il Plus et non avec l’Ap- 
ple //e. D'aileurs, Applewriter II fonc- 
tonne à merveille et reconnaît les 
minuscules. 


Pour relancer le programme COPYA 
sans avoir à le recharger, faire RUN 
80. 


Ne pas lancer PL.E. (Program Line 
Editor) quand TRACE est actif; faire 
d'abord NOTRACE. En effet, dans le 
cas contraire, lors de l'appel de PEE, 
le nom de celui-ci sur la disquette 
devient dénaturé avec des caractères 
spéciaux. 


Les tentatives d'initialisation de dis- 
quette après exécution d'Applewriter 
I échouent: il faut rebooter avec une 
disquette normale avant de lancer 
une initialisation. 
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Le Pascal marche parfaitement en 48 
colonnes; nous n'avons pas eu l'oc- 
casion lors de notre essai de le tester 
en 80 colonnes, mais cela ne pose 
aucun problême selon BMI avec le 
programme de boot adéquat. 


Nous n'avons pas réussi à faire tour- 
ner Multiplan, les programmes de 
boot Apple Il Plus et //e de Multiplan 
n'arrivant pas à se faire reconnaître. 
Notre bon vieux Visicalc 8, par 
contre, tourné de façon compilète- 
ment satisfaisante, mais seulement en 
40 colonnes. Avec quelques surprises 
cependant: il m'a fallu longtemps 
pour découvrir que l’arobase, indis- 
pensable pour la définition des fonc- 
tions, s’obtenait avec la touche 
HOME. 


Nous avons essayé de faire tourner 
GraForth. Le programme  boote 
convenablement et tout se passe ap- 
paremment bien, sauf que toutes les 
minuscules (créées en haute résolu- 
tion) sont absentes, ce qui est 
étrange car les majuscules aussi sont 
obtenues par logiciel sur l'écran 
HGR. 


Conclusion 


Pour celui qui a seulement besoin 
des services que peut rendre un 
Apple Il Plus ou //e, il est certain que 
le Basis 108 n'est pas compétitif, son 
prix est trop élevé en comparaison. 


Le Basis 108 est intéressant pour les 
utilisateurs de CP/M, pour ceux qui 
connaissent avec l'Apple des problè- 
mes d'insuffisance de l'alimentation, 
pour ceux qui désirent utiliser un ma- 
tériel plus professionnel (esthétique, 
fiabilité, clavier, possibilités). C'est 
aussi intéressant pour tous ceux qui 
ont des problèmes de vision et ap- 
précieront la possibilité de basculer 
entre 40 et 80 colonnes, ou de choi- 
sir parmi quatre polices à l'écran. A 
condition de bien vouloir payer le 
prix de la différence. 


Depuis notre banc d'essai de l’'Ap- 
ple //e, nous avons découvert qu’il 
n'était pas parfaitement compatible 
avec l'Apple Il Plus. Certains jeux 
(surtout ceux de Programma Soft- 
ware) ne fonctionnent pas, Applewri- 
ter I marche imparfaitement, .. Sur 
l'échelle de la compatibilité Apple I] 
Plus, le //e vaut 9/10 et le Basis 108 
environ 8,5/10. 


Nous conseillons par conséquent aux 
futurs acquéreurs de Basis 108 dhis- 
posant déjà d'une Appleothèque de 
faire des essais avant l'achat, afin de 
vérifier si leurs programmes préférés 
fonctionnent bien sur ce matériel. 


De toute façon, nous pensons que 
les utilisateurs d'Apple ont à gagner à 
la présence de matériels compatibles. 
Une saine concurrence ne peut avoir 
pour eux que des effets positifs. 
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Création de polices de caractères 


HAÏFA (Pom's 5 - erratum en Pom's 
6), ainsi que le DOS ToolKi't et d’au- 
tres logiciels, utihise des polices de ca- 
ractères qui fonctionnent sur écran 
graphique haute résolution, enregis- 
trées en RAM et traitées par POKESs 
sur là page graphique. 


Les polices de caractères sont elles- 
mêmes créées par des POKESs dans 
des zones mémoire réservées, selon 
un principe expliqué dans l’article sur 
HAÏIFA. 


ll est plus agréable et plus pratique, 
au lieu de calculer les POKEs en 
question, de créer graphiquement. en 
grande dimension, les caractères 
choisis, surtout si l’on désire créer 
des caractèrs graphiques, des symbo- 
les, … C’est le but atteint par le pro- 
gramme CRECAR, qui permet en 
outre de créer des caractères directe- 
ment par voie numérique. ainsi que 
de les relire. 


L'instruction 5 fournit au programme 
l'adresse de début de la table de ca- 
ractères (il serait évidemment possi- 
ble de l'entrer par INPUT au lance- 
ment du programme). L'adresse 
décimale correspond à la version 
48K de HAÏIFA. 


Le programme s'exécute ensuite de 
la façon suivante : 


Demande d’un nom de 
police 


Si un nom de police est fourni, cette 
police est chargée en mémoire et 
l'utilisateur est averti du risque de sa 
deshuction (de la police, bien en- 
tendu …). Si Fon à fait RETURN 
sans fournir de nom de police, cela 
signifie que l’on crée une nouvelle 
police. 


Affichage d’un menu 


Suit l'affichage d'un menu donnant 
le choix entre les options : 

e 1 - CREER 

e 2 - LIRE 

e O - ARRETER 

Nous analysons ci-dessous ce qui se 
passe lorsque chacune de ces options 
a été sélectionnée. 


Option CREER 


Un second menu nous donne le 
choix entre les possibilités : 
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e 1 - NUMERIQUE (donc par 
POKESs, comme avec HAÏIFA) 
e 2 - GRAPHIQUE 


Création numérique 


En cas de création numérique, la sé- 
quence ci-dessous est suivie : 
e Quel caractère ? 

Répondre par un caractère du cla- 








vier. Si ce caractère est précédé 
de ESC, il sera considéré comme 
minuscule”, avec la définition 
donnée dans l’article sur HAÏFA. 

e Li No. (défilement de 1 à 
Fournir la valeur du POKE corres- 
pondant, un nombre de 0 à 255, 

e Après la dernière entrée, tracé du 
résultat sur l’écran 

Dpt te ME PARA TT ET 


__——— 
HÉSNÉFÉSPRNLENRESETET ER 


Guy Mathieu 


e Autre caractère ? 
Si la réponse est positive (RE- 
TURN), nous retournons à la 
question ‘Quel caractère ?”. Dans 
le cas contraire (ESC), retour au 
menu. 


Création graphique 


En cas de création graphique, l’ordre 

des opérations est le suivant : 

e Dessin d’une grille 7x8 

e Un petit carré (créé par SHAPE) 
peut être déplacé sur la grille par 
les flèches droite et gauche. La 
bascule entre déplacement hori- 
zontal et vertical s'effectue en ap- 
puyant, comme pour Visicalc, sur 
la barre d’espacement. 

e ESC met en place un point du ca- 
ractère. Un second ESC sur un 
point déjà tracé efface celui-ci. 

e Quand le dessin du caractère est 
terminé, RETURN. Il y à émission 
d'un BEEP. En cas de RETURN 
par erreur, on peut revenir au 
mode déplacement. Si tout va 
bien, un second RETURN 
confirme la fin du dessin. 


Option LIRE 


e Position verticale (du premier ca- 
ractère à lire) ? Répondre par une 
valeur de 0 à 19. 

e Position horizontale (idem). 

e Caractère ? 

La phrase s'inscrit à partir de la 
position désignée sur l'écran. At- 
tention : quand on va à la ligne, il 
se passe des choses bizarres. 

e RETURN renvoie au menu princi- 
pal. 


Option ARRETER 


e Voulez-vous sauver. 
Réponse négative (ESC) : Au re- 
voir”. 
Si oui (RETURN) : donner le nom 
choisi. Si aucun nom n'est donné 
(RETURN à vide), celui de la po- 
lice lue est utilisé. 

e Enregistrement de la police sur le 
disque sous le nom choisi, puis 
message d'adieu. 


Si Pon sort par mégarde du pro- 
gramme, on peut y revenir par RUN, 
les polices étant stockées par des 
POKESs. 
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1 POKE - 16142,0 

2 LOMEM: 17000 

3 HIMEM: 36863 

4 DS = CHRS (4): DIM E2(7,8) 

S DD = 36864 

6 TY = 7 

7 MX = 255 

8 POKE - 16142,0 

9 GOTO 10000 

10 REM CREATION 

15 HOME : PRINT “1 - CREATION NUMERIQUE 

16 PRINT : PRINT ‘2 - CREATION GRAPHIQU 
E" 

17 PRINT : INPUT VOTRE CHOIX ? * 
CR 

18 IF CR = 2 THEN GOSUB 2000 

19 IF CR = 1 THEN TEXT : HOME 

20 PRINT “QUEL CARACTERE ? ‘';:A = © 

21 GET ZS$S: PRINT 25S: 

22 IF ASC (2$S) = 27 THEN A = 32: GOTO 
21 

23 PRINT : IF ASC (ZS) < 32 AND ASC ( 
ZS) < > 13 THEN 19 

25 I = ASC (25) - 32 + A 

30 FOR 3 = O TO TY 

35 IF CR = 2 THEN X = N{J): GOTO 60 

40 PRINT “POSITION ",J + 1: : ‘: 

50 INPUT X 

ES OCR CRD) CSD CR 
EE - UE 


Enseignement Assisté par Ordinateur pour Ordinateurs 
MOPFE D'ANFICO = SILEX - ITT 2020 - APPLE II = APPLE II + 


COURS EN FRANCAIS 
« APPLESOPT D- APPLE 11 ( + Carte APPLESOPT ) 
- APPLE Il + 
- APPLE III 


= NOPPE D'ANPICO ( + APPLESOPT en ROX }) 
« PALSOPT f- 177 2020 ( + Carte PALSOPT ) 
« SILROK  f- SILEX ( de Léanord ) 
( Sur DISQUETTES 5 1/4 Pouces = DOS = DOS 3.3 - Mémoire = 48 K. 


PRES) 

1/ COURS 1 ( BASIC }) - En Français 
+ TR&S PROGRESSIF - Ne nécassite aucune Cannatssmace préalable en 
informatique, ; 
Pour débutants et non débutants. TOUT YŸ EST EXPLIQUE. 
20 Leçons - Anviron 10 à 12 Heures de cours. 
80 Æarcices commentés, expliquée, résolus, exécutés, 
140 Questions aotéee sur 20, par groupes. - Réponses aux Queetions. 
GRAPHISILE BASSE et HAUTS RES®LUTIOR, 
Béfilenent autemetique du Ceurs avec arrête et reprises poseibles 
en Cours de leçon. 
De nombreux exercices prouvent être réexécutés autant de fois que 
vous le sounmitez. Ainsi, vous pouvez obtenir las mênes résultats 
su des résultets différents en falsant verier les données &'entrée. 


M À LA FLY DE CE COURS, VOUS SAUREZ  PROCRAMIER. 
è/ Cetrs 2 ( BASIC + ) - En Prançais O 


< Philosophie générale identique à celle du COURS 1 ( BASX }), 
«+ 25 LeGone - 12 Heures de cours mini, 
. 


ve 


120 fxercices comsentés, expliqués, résolus, exécutés, 
160 Queetions notées eur 20, par groupes - Réponses aux questions. 


5/ CONTRATS-LOCATION du COURS BASIC pour: 


«+ Etablissements d'Enseignement. 

-« Etablissements de Formation payante, 

«+ Centre de Recherches, Laboratoires, Centre d'Essais,s.es 

-« Comité d'Entreprises. 
Le =} 





PRIX ( T.V,A. comprise ) 


« COURS 2 ( BASIC + ) 375 FF. 


Prix donnés à titre indicatif, pouvant 
être modifiés sans préavis. 
ESS 


8 Allée BUFFON 
91000 EVRY-COURCOURONNES 


REVENDEUR S, 
C ON T ACTE Z - N O US. 
ES 


35 


60 
70 
80 
82 
85 
30 


31 

32 

95 

100 
110 
115 
120 
122 
125 
130 
135 
140 
145 
150 
155 
165 
399 
100 
100 
100 
101 


102 


IF X > MX OR X < O THEN PRINT ‘"VALE 
UR INCORRECTE‘: GOTO 40 
ADS DD À la CTY ec LD +, 
POKE AD,X 
NEXT 
HGR 
LS = ZS:VT = 10:HT = 10: GOSUB 100 
VTAB 23: PRINT “AUTRE CARACTERE ? (R 
ET/ESC) “;: GET 25:2 = ASC (ZS) 
HOME 
IF Z = 13 THEN 18 
TEXT : HOME : RETURN 
L = LEN (LS): FOR J = 1 TO L 
Vi CINT. (VT.7 8): V2 = VT "8 #1 Vi 
VV = 8192 + V1 *# 40 + V2 »* 128 
VH = VV + HT + J - 1 
LLS = MIDS (LS,J,1) 
X = ASC (LLS) - 32 + A 
FOR, T'=1 01:10: 1% 
Al = VH + I # 1024 
A2 = DD/e Ne, CTY + 19 + 
POKE At, PEEK (A2) 
NEXT I 
NEXT J 
RETURN 
END 
O REM LECTURE 
1 HOME : VTAB 21 
5 HGR 
O INPUT “POSITION VERTICALE ? ":V 
T: IF VT < O OR VT > 19 THEN TEX 
T .: COTO: 1001 
O INPUT “POSITION HORIZONTALE ? ‘“;H 
T: IF HT < O OR HT > 39 THEN TEX 
T : GOTO 1001 
5 PRINT “CARACTERE ? (RETURN POUR AR 
RETER) * 
O GET LS: IF ASC (LS) = 27 THEN A = 
32: GOTO 1030 
S IF ASC (LS) = 13 THEN 1050 
7 IF ASC (LS) < 32 THEN VTAB PEEK 
(37): GOTO 1025 
O GOSUB 100 
DEA O 
S HT = HT + 1: GOTO 1030 
O TEXT : HOME : RETURN 
O HGR : HCOLOR= 3 
O FOR I = 100 TO 160 STEP 10: HPLOT 
1,50 TO I,120: NEXT 
O FOR I = SO TO 120 STEP 10: HPLOT 1 
00,1 TO 160,1: NEXT 
O DATA 1,0,4,0,27,36,45,45,54,54, 
63,63,36,0 
O FOR I = 1 TO 14: READ V: POKE 3800 
O + I - 1,V: NEXT I 
O POKE 232,112: POKE 233,148 
O GG = 1: SCALE= 1: ROT= O: POKE - 1 
6142,0 
O XA = 100:XX = 100:YA = SO:YY = 50 
O FOR I = O TO 7:N(I) = O: FOR J = Ô 
TO 8:E2{I1,J) = O: NEXT : NEXT 
O RESTORE 
O REM A:ECRIT. HR 
O ROT= O: REM :SHAPE 
O XDRAW GG AT XA,YA 
O GET ZS:Z = ASC (25) 
O IF Z = 32 THEN ZD%x = 1 - ZD% 
O IF Z = 8 THEN XX = XX - 10 »* ZD%x:Y 
Y = YY - 10 * (1 - ZD%) 
O IF Z = 21 THEN XX = XX + 10 *« ZDx: 
YY = YY + 10 * (1 - ZD%) 


ENORME 
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2265 IF Z < > 13 THEN 2275 12060 PRINT ‘DONNEZ LE NOM CHOISI" 


2270 GOSUB 20000 12070 INPUT * VOTRE CHOIX ? “;NPS 
2271 IF FIN = 1 THEN 2340 1207S IF NPS = ‘‘"" THEN PRINT “ “: GO 
2272 IF FIN < > 1 THEN 2230 TO 12060 
2275 IF Z = 27 THEN 2400 12080 PRINT DS‘"BSAVE":NPS;",A";:DD;",LS3 
2280 IF Z < > 8 AND Z < > 21 AND Z < O0" 
> 32 AND Z < > 13 AND Z < > 27 12100 HOME : VTAB 12: HTAB 12: PRINT “A 
THEN PRINT “ ‘’: GOTO 2230 U REVOIR": END 
2290 IF XX < 100 THEN XX = 100 20000 PRINT “ ‘ 
2300 IF XX > 160 THEN XX = 160 20010 GET Z$:Z = ASC (2S) 
2310 IF YY < SO THEN YY = 50 20020 IF Z = 13 THEN FIN = 1 
2320 IF YY > 120 THEN YY = 120 20030 RETURN 


2330 XDRAW GG AT XA,YA 
2340 XDRAW GG AT XX,YY 
2350 XA = XX:YA = YY 


2360 IF FIN = 1 THEN 2500 Message aux créateurs de logiciel 
2370 GOTO 2230 = Ne 
2400 II = (YY - SO) / 10:JJ = «XX - 100) de ns en de Ets 
/ dot 17 E2c2,99) » à THEN E2C | | Gectuant selon le principe des droïs d'auteur. 
LT TS OEN CLIN =2ONCITY = 20 UT TS ; 
SCALE-= 2: ROT= O: GOTO 2420 Bien entendu. les programmes destinés à ce mode 
2405 SCALE= 2: ROT= O: XDRAW GG AT XX,Y de distribution doivent être des produits finis, autant par la 
Ÿ qualité des programmes que par celle de la documenta- 
2410 GET ZS:Z2 = ASC (ZS) tion et par l’environnement visuel et sonore. 
2420 IF Z = 27 THEN XDRAW GG AT XX,YY: Nous sommes prêt à analyser vos propositions et 
SCALE= 1: GOTO 2230 à vous aider à transformer des idées en produits logiciels. 
2425 SCALE= 1 Envoyez-nous vos contributions ; nous vous aiderons à 
2450 NII) = N{II)D + 2 ” JJ'E2(II1,JJ) - diffuser ces programmes. 


L 
2480 GOTO 2240 
23500 VTAB 21 





2510 FIN = © EXEMPLE DE POLICE DE CRARACTERES 
2520 RETURN : 6 
9999 END SEMI-GRAPHI QUES 


10000 HOME : PRINT “CREATION/LECTURE": 


PRINT "DE POLICES DE CARACTERES": | — ç + 7 rs 
PRINT “EN HAUTE RESOLUTION" Fe TE 
10030 PRINT : PRINT "NOM DE LA POLICE ? Hs 
P Li + ] L£s.! & 
10031 INPUT "(’RETURN’ SI AUCUNE D“; NPS 2: 
10035 IF NPS = ‘“" THEN 10100 ER PEAR PLATE ki T 
10040 PRINT DS"“BLOAD"“;NPS £ 
10050 VTAB 10: PRINT “ATTENTION, VOUS R HN XD 
ISQUEZ DE DETRUIRE DES CARACTERES A LV ÿ 
DE LA POLICE UTILISEE" 55 
10100 PRINT : PRINT : PRINT “VOULEZ-VOU FA 
S* EXEMPLE DE RERLISATION D'IMPRIME L 
10110 PRINT : PRINT “1 - CREER UN CARAC # 
TERE" br 


10130 PRINT : PRINT “2 - LIRE UN OU DES 


CARACTERE(S)* Dés ignat ion 


10150 PRINT : PRINT “ (CO POUR ARRETE 
R)" 

10180 PRINT : INPUT “ VOTRE CHOIX ? 
"#:CH 





10130 IF CH O THEN 12000 
10310 IF CH 1 THEN GOSUB 10 9 SSANOS 0 QUO 6 MONS 9 € DILOR 0 AUS. 6, QATUR € LUI S a7i0:1078 
10320 IF CH 2 THEN GOSUB 1000 

10400 GOTO 10100 


12000 HOME : PRINT “VOULEZ-VOUS SAUVER 


“NPS QUELQUES FIGURES VARIEES 
12010 PRINT “’RETURN’ SI OUI - ’ESCAPE’ 

SI NON ‘; 5  & PL 
12020 GET Z2S:Z = ASC (25) ë ie 
12025 PRINT : PRINT 
12030 IF Z = 13 THEN 12045 EXEMPLES DE CARACTERES GRECS 
12035 IF Z = 27 THEN 12100 
12040 GOTO 12020 AS LE 2 
12045 IF NPS = “* THEN 12060 
12050 PRINT “’RETURN’ POUR GARDER LE NO | 

M, OU BIEN CO URSS UE 

D  "* 
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Allo, Questel ? 


Pom's 


Nous avons encore eu peu de temps 
pour parler de communication dans 
Pom’s. Il s’agit pourtant là d’un sujet 
intéressant, mais nous avons telle- 
ment de choses passionnantes à vous 
faire partager ! Pom'’s a rendu visite à 
la société Euréquip dans laquelle tra- 
vaille Guy Mathieu, que nos lecteurs 
assidus connaissent déjà bien. Nous 
vous parlerons encore de communi- 
cation dans les numéros à venir; cet 
article de présentation joue le rôle 
d’éclaireur … Nous retranscrivons ci- 
dessous les questions posées par 
Pom’s et les réponses de Richard 
Haddad, collaborateur de Guy Ma- 
thieu. 


À quoi sert Questel ? 


Questel est un service permettant à 
ses utilisateurs de se relier à de nom- 
breuses bases de données. Nous 
lutilisons à de multiples occasions, 
par exemple pour retrouver toutes 
les références à certains vocables ou 
à certains mots-clés dans des publica- 
tions, dans des conférences. On 
pourra ainsi rechercher tout ce qui 
existe dans une base de données et 
fait référence à la fois aux termes 
ergonomie” et ’’micro-informati- 
que”. 


Nous l’utilisons aussi pour nous ren- 
seigner sur tel ou tel sujet précis, à 
l'aide d’une des nombreuses bases 
de données gérées par Questel. Il 
existe par exemple trois bases de 
données de l'INPI permettant de se 
renseigner sur des problèmes de bre- 
ve et de brevetabilité Bien en- 
tendu, l'intérêt de telle ou telle base 
de données dépend essentiellement 
du sérieux avec lequel elle est mise à 
jour, et cela varie d’une base à l’au- 
tre. Ainsi, la base de données Pascal 
(rien à voir avec le langage} contient 
des renseignements pluridisciplinaires 
(sciences physiques et de l'ingénieur, 
chimie pure et appliquée, sciences de 
la Vie et sciences de la Terre) et re- 
çoit 500.000 nouvelles références par 
an. 


Pourquoi Questel ? 


Rien ne nous oblige à utiliser exclusi- 
vement une base de données pré- 
cise. Une fois que nous pouvons re- 
lier notre Apple à l'extérieur, cela 
nous autorise à communiquer avec 
tout serveur avec lequel nous aurions 
ouvert un compte. Questel est un 
serveur (il fournit un service), Prestel 
en est un autre, etils ne sont pas les 
seuls. 


Ceci dit, il faut investir un certin 


temps pour apprendre à utiliser le 
système du serveur. En outre, pour 


tirer le meilleur parti d’une base de. 


données, il faut en être familier, 
sinon l’on perd du temps pour trou- 
ver les réponses aux questions que 
l'on se pose, et de l’argent puisque la 
facturation dépend du temps de 
connexion. 


Lorsque nous avons décidé d'utiliser 
des services d’information interactifs, 
nous avons analysé ce que propo- 
saient les différent serveurs. Nous 
sommes arrivés à la conclusion que 
le système Questel était celui qui 
nous serait le plus utile, compte tenu 
de la grande variété de ses bases de 
données et de la qualité de leurs 
mises à jour. 


Les serveurs n'offrent pas nécessaire- 
ment l'accès à plusieurs bases de 
données. Ils peuvent aussi vous pro- 
poser, comme le fait Calvados, de 
partager certaines ressources infor- 
matiques : vous obtenez ainsi au 
bout de votre Apple une puissance 
de traitement informatique qu'il ne 
pourrait vous apporter seul. 


Quelles sont les bases 
de données accessibles ? 


Nous avons une brochure décrivant 
26 bases de données proposées par 
le système Questel Nous ne pour- 
vons les citer toutes, notons par 
exemple TELEDOC pour les télé- 
communications, BSI sur l'informati- 
que, LOGOS qui a mémorisé les dis- 
cours des personnalités politiques 
françaises en même temps que des 
données relatives à l’activité politi- 
que, économique et sociale française. 
LOGOS vous donnera par exemple 
les références de tous les discours 
des six demiers mois dans lesquels le 
terme ‘lutte des classes” a été utilisé. 


La base MEETING AGENDA vous 
renseigne sur les annonces de 
congrès, conférences et expositions. 
DEFOTEL garde à jour des informa- 
tions boursières et financières pour 
1500 sociétés françaises et étrangè- 
res. CANCERNET s'occupe exclusi- 
vement de tout ce qui touche de 
près ou de loin au cancer. Comme 
vous le voyez, la variété est grande. 


Comment communiquer ? 


Il suffit de relier votre Apple au ré- 
seau avec un modem téléphonique 
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ou acoustique, ou avec la nouvelle 
carte modem intégré disponible 
depuis peu sur Apple Il Plus et //e. 
Nous nous servons d'un modem 
acoustique, que nous possédions 
déjà quand nous avons débuté avec 
Questel. La carte modem intégré 
n'était pas disponible quand nous 
avons commencé à ‘’communiquer”. 


Combien cela coûte-t- il ? 


Ne prenons pas en compte le coût 
du modem, qui est un coût fixe et 
tient au fait de communiquer, plutôt 
qu'à celui d’avoir recours aux servi- 
ces d'un serveur ou d'un autre. 
Selon la base de données utilisée, le 
coût par heure de connexion varie 
entre 180 F HT et 700 F HT, la très 
grande majorité des tarifs se situant 
entre 300 F HT et 500 F HT de 
l'heure. Il faut ajouter à cela le coût 
de la citation imprimée (de 0,60 F 
HT à 1 F HT en général). 

Une citation sera par exemple la ré- 
férence d’un article ou d’une confé- 
rence où les mots-clés que nous re- 
cherchons ont été utilisés. 


Peut-on faire un essai ? 


Absolument; il suffit de suivre notre 

procédure habituelle : 

e brancher la carte de communica- 
tion dans le slot 2 ; 

e introduire le programme DATA 
CAPTURE dans le drive 1 ; 

® introduire la disquette FICHIER 
dans le second drive ; 

e mettre l'Apple sous tension. 


Il se trouve à présent en mode termi- 

nal (TTY). Un premier menu appa- 

raît à l'écran. 

e faire ‘ESC T A” pour travailler 
avec deux lecteurs 

e faire “ESC T D” pour travailler en 
fulf duplex 

e mettre le modem sous tension 

e mettre le modem en FULL DU- 
PLEX 

e composer le numéro du réseau 
Transpac 

e à l'écoute de la porteuse (tonalité 
indiquant le lien avec l'ordinateur 
au bout de la ligne), enfoncer le 
combiné dans le modem 

e taper H {et RETURN) 

e taper 106000019 ou 106000027 
(et RETURN) pour Questel 1 

e entrer le numéro de compte et k 
mot de passe. 


Ce n'est pas plus compliqué que 
cela. Il ne reste plus qu’à utiliser 
Questel. 
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Introduction 


L'utilisation des types INTEGER ou 
REAL en Pascal ne permet pas de 
disposer de plus de 6 chiffres signifi- 
catifs, ce qui est insuffisant, ne serait- 
ce que pour les applications compta- 
bles. Le type LONGINTEGER peut 
comporter jusqu'à 36 chiffres, mais 
ne permet pas le calcul décimal. Les 
procédures et fonctions définies dans 
cet article permettent d'utiliser 12 
chiffres significatifs avec des expo- 
sants de + à — 30 pour les 4 opéra- 
tions et les comparaisons. On définit 
à cet effet les constantes : 

MINEXPO= — 30 et MAXEXPO= 


+ 30 
SIGNIFICAT!F= 12: maximum de 
chiffres significatifs 


Le type REEL sera alors défini par : 
REEL=RECORD 


EXPO MINEXPO. 
MAXEXPO; 
MANTISSE :INTEGER! 
SIGNIFICATIF!: 
END: 
TRESLONG= INTEGER!32! (con- 


trôle des débordements) 


Les variables MAX et MAXI10 sont 
utilisées pour représenter la plus 
grande mantisse et son quotient par 
10. Les autres variables ne sont utili- 
sées que par le programme principal 
servant aux essais, mais la place na- 
turelle de ces procédures et fonctions 
est dans une UNIT en librairie appe- 
lée quand le besoin s’en fait sentir. 


Remarquons que les modifications de 
MINEXPO, MAXEXPO et SIGNIFI- 
CATIF peuvent fournir des procédu- 
res et fonctions pour un calcul à 18, 
24 , … chiffres significatifs, et à expo- 
sant différent de +30. La seule pré- 
caution à prendre sera de contrôler 
que la variable "DEBORDE”* peut ef- 
fectivement contenir le produit 
MAX%*MAX. 


Premières procédures 


PCAR, PCHAINE, PREEL, DIAGER- 
REUR ont déjà été décrites dans de 
précédents articles de Pom's. 


La procédure INITMATH fabrique 
MAX et MAXI10. 


La procédure NORMALISE aligne le 
nombre à droite en supprimant les 
zéros s'il y en a et en incrémentant 
l'exposant. 


La procédure SIGNE renvoie + 1 ou 
— 1 selon le signe de TL. 


DIV10 donne l’arrondi du nombre. 
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Calcul à 12 chiffres 


CONTROLER essare, si nécessarre, 
de ‘faire tenir” le nombre dans la 
définition en fonction de MAX, 
MAXEXPO et MINEXPO et renvoie 
VRAI s'il y parvient. 


Procédure EGALISEXPO 


EGALISEXPO est utilisée par d’au- 
tres procédures du système ; elle per- 
met d'égaliser les exposants de deux 
nombres afin de faciliter les compa- 
raisons, additions ou soustractions. 


Si, à l'entrée de la procédure, les ex- 
posants sont déjà égaux, on réalise 
un EXIT. Si l'exposant du premier 
nombre est plus grand, on le décré- 
mente progressivement en multipliant 








la mantisse chaque fois par 10, ceci 
s'arrêtant soit quand une mantisse 
devient supérieure ou égale à 
MAX10, soit quand un exposant de- 
vient inférieur ou égal à MINEXPO. 
Ce procédé assure que l'ajustement 
fait sans perte de chiffres significa- 
tifs. 


Si à l'entrée de la procédure l’expo- 
sant du premier nombre est plus 
grand que celui du second, on ap- 
pelle de façon récursive EGALI- 
is en inversant les deux nom- 
res. 


Si l'on sort de la première boucle 
WHILE sans égalité des exposants, 
on procède de façon inverse en in- 
crémentant l'exposant du deuxième 
nombre et en divisant chaque fois sa 
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mantisse par 10, ce qui fait alors per- 
dre des chiffres significatifs. 


Fonctions de 
comparaison 


Les fonctions de comparaison EGAL, 
INFERIEUR et SUPERIEUR appei- 
lent EGALISEXPO, comparent les 
mantisses et renvoient vrai ou faux. 
Elles sont toutes trois appelées par 
COMPARE qui reçoit en paramètre 
M1 et M2 (les deux réels à compa- 
rer) et CA, qui est un caractère de 
comparaison “= ”, ”’<’” ou ">". Il 
est bien entendu possibie d'appeler 
directement chaque fonction ou en- 
core, en définissant un type FLAG= 
(SUP,EG.INF), d'écrire COMPARE : 





Ta TTs LE DEFICIT 
DU COMMERCE EXTERIEUR, 
NE RENTREE PPS AVEC 
18 CHirRRES ! 


FONCTION COMPARE{(MI1,M2 : 
REEL) :FLAG; 


Begin 
IF EGAL{MI1,M2) THEN 
COMPARE := EG 
ELSE IF SUPERIEUR(MI1,M2) 
THEN COMPARE := SUP 
ne ELSE COMPARE := INF 
nd; 


Procédures 
arithmétiques 
Les procédures arithmétiques ont 


pour rôle, entre autres, de contrôler 
que l’on ne dépasse jamais les 


bornes fixées pour la représentation 
de la mantisse et de l'exposant du 
résultat. Dans le cas contraire, le.dra- 
peau ERREUR est mis à 1 Toutes 





les procédures éliminent par avance 
les cas tiiviaux M1= 0 ou M2= ©. 


L ADDITION 


Gestion des cas M1= 0 et M2= 0. 
Ensuite, égalisation des exposants. 
Définition de la variable DEBORDE 
qui contient la somme des mantisses. 
Si CONTROLER est vrai on crée 
RESULT et on le normalise, sinon : 
erreur de débordement. 


2. SOUSTRACTION 


On transforme M2 en —-M2 et on 
passe à ADDITION. 


3. MULTIPLIE 


Elimine les cas triviaux, sinon DE- 
BORDE est égal au produit des man- 
tisses et Ï à la somme des exposants. 
Si CONTROLER est vrai. on fait RE- 
SULT et on le normalise, sinon ER- 
REUR est mis à 1. 


4. DIVISE 


Gestion des cas MI= O et M2= 0. 
Sinon, afin de garder le plus de chif- 
fres significatifs possible, la mantisse 
du dividende est multipliée par 10 
autant que faire se peut sans dépas- 
ser MAX et sans que son exposant 
devienne inférieur à MINEXPO+ 
M2*+ EXPO. Ensuite, 1 prend la va- 
leur de la différence des exposants, 
puis la validité de DEBORDE et de I 
est contrôlée. Si tout va bien, RE- 
SULT est défini et normalisé. 


Toutes ces procédures sont appelées 
par la procédure CALCUL. Elles 
peuvent être appelées directement, 
l'appel de calcul se faisant par exem- 


ple par : 

CALCUL{R1,'+ ’,R2.SOMME) 
ou par : 
DIVISE(R1,R2,QUOTIENT) 


Procédure FORMATAGE 


Cette dernière procédure est un 
PRINTUSING défini de la manière 
suivante: la position des différents 
chiffres est indiquée par un ”#” etle 
point décimal, s’il y en à un, par le 
symbole ”.”. Si l'affichage se fait à 
l'aide d’un exposant, la position de 
ce dernier sera marquée par des 


Le format est décrit dans une chaîne 
de caractères. Tous les caractères al- 
phabétiques de cette chaîne seront 
conservés tels quels dans l'édition, y 
compris les espaces éventuels. Si le 
premier caractère du format est un 
"*", ce signe remplacera tous les 
blancs du format jusqu’au premier 
chiffre. Ainsi, l'utilisation du format 
Prix=--# # # #—Fr' 

fera apparaître à l'écran 

"PRIX=- -12.75-Fr.” 

celle de ‘Valeur :-# # #-—-Exposant 
AAAN 


donnera Valeur :— —-12-— -ExposantE 
+ 12” 

et le fonnat 'x——# # # #—— 
aboutira à ’* x * x « 12” 


Si un nombre ne peut être repré- 
senté dans le format donné, il est 
remplacé par des ”?”. 


La procédure FORMATAGE a pour 
paramètres le réel M1, le format FM 
et la chaîne résultante SR. Le corps 
de la procédure détecte tout d’abord 
les erreurs, l'absence de format ou 
de chiffres dans le format. 


Ensuite, on regarde si le premier ca- 
ractère est un ‘’x”. Si oui, le booléen 
COMPLET est mis à vrai et le pre- 
mier caractère du format "x" est sup- 
primé; ensuite, LF prend pour valeur 
la longueur totale du format et l’on 
fabrique la chaîne vide résultat de 
même longueur en forçant le carac- 
tère SRIO! à la longueur du format, 
puis en remplissant cette chaîne d’es- 
paces grâce à la procédure FILL- 
CHAR. 


PEXPO prend alors pour valeur la 
position de l'exposant dans le format 
et PDEC celle du point décimal dans 
le format. Si les deux existent, c'est 
la représentation avec exposant qui 
est choisie. 


Les procédures EXPOSANT et DE- 
CIMALE sont appelées selon le cas 
et servent à fabriquer SNUM, chaîne 
de caractères image du nombre. S'il 
n'y à pas eu d'erreur et si NUM a 
une longueur inférieure ou égale à 
celle du format, on recopie grâce à 
MOVERIGHT SNUM dans le format 
en prenant la position du chiffre de 
gauche comme repère. Si SNUM est 
trop grand, le format est totalement 
rempli par des ”’?”. 


Ensuite, tous les caractères autres 
que les espaces et les signes de syn- 
taxe du format sont recopiés dans 
SR. Enfin, si la variable COMPLET 
est vraie, tout le début du format jus- 
qu’au prernier chiffre est rempli avec 
des ”#”. 


La procédure EXPOSANT est utilisée 
par FORMATAGE pour placer l'ex- 
posant dans SR; on repère d'abord 
le dernier chiffre de droite dans le 
format par un SCAN de droite à 
gauche, et sa valeur est placée dans 
PDEC. Ensuite, on fabrique la chaîne 
SNUM représentant le nombre grâce 
à la procédure STR et l’on calcule le 
nombre de chiffres NC permis par le 
format (position du dernier moins 
position du premier). 


Si ce nombre est plus petit que celui 
autorisé, on supprime des chiffres à 
droite par : 

SNUM := COPYISNUM,INC) 

puis on corrige l'exposant en consé- 
quence. On construit ensuite l'expo- 
sant par STR. On ajoute un zéro à 
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gauche si nécessaire on place le 
signe devant, puis le E et enfin l'ex- 
posant, transféré dans SR par un 
MOVELEFT. 


La procédure DECIMALE est appe- 
lée si le format ne comporte pas 
d'exposant. On repère d’abord deux 
cas : ou PDEC est différent de zéro 
et il y a des décimales à afficher, ou 
il est égal à zéro et il n'y a pas de 
décimale. 


S'il y a des décimales et si le point 
décimal est le dernier signe (un point 
non suivi de ”#”), le nombre de dé- 
cimales NDEC est mis à zéro. 


Sinon, NDEC est calculé comme dis- 
tance entre le dernier ”#” (à droite) 
et le point décimal. On appelle alors 
la procédure AJUSTE qui dans toute 
la mesure du possible va ajuster le 
nombre fourni pour le ’livrer” avec 
le nombre de décimales voulues. 


Après quoi, PDEC est ramené à l'ex- 
trême droite. On crée SNUM comme 
précédemment. On ajoute le nombre 
de zéros voulu à gauche du nombre 
si nécessaire et l’on place le point dé- 
cimal à la place calculée. Si le nom- 
bre n’a pas de décimale, le processus 
est le même. mais simplifié du posi- 
tionnement du point décimal. 


Le corps du programme n'a d'utilité 
que pour permettre de contrôler les 
procédures et fonctions, fournir un 
nombre, un opérateur, un deuxième 
nombre et réafficher l'opération sous 
forme normalisée. Le CASE OF sert 
à départager ce qui doit être envoyé 
à CALCUL de ce qui est envoyé à 
COMPARE. 


Pour le calcul, si ERREUR reste à 
zéro, on écrit le résultat normalisé, 
puis on demande le forrnat (donné 
sous forme de chaîne de caractères); 


cette demande est répétée jusqu’à 
l'entrée d'un simple RETURN. 


Pour la comparaison, affichage de 
vrai ou faux selon le résultat. 

Puis fin de la boucle REPEAT sur 
"Voulez- -Vous continuer ! LA 

À noter qu'au lieu d'utiliser directe- 
ment les caractères ”+”, "7, 747 
etc., il peut être plus simple de défi- 
nir un type : 


OPERATEUR= (PLUS. MOINS, 
FOIS.QUOT EG, 
SUP, INF) 


cela sera plus élégant, plus Pascal”, 
mais peut-être moins lisible. C'est 
pour cette raison que j'utilise directe- 
ment les caractères dans ce pro- 
gramme. 

Par ailleurs, COMPARE pourrait très 
facilement s'enrichir de "<=", ">=" 
ou <>” avec la création des fonc- 


tons LE, GE et NE. FORTRAN n'est 
pas si loin. 
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PROGRAM MATH12: 


CONST  MINEXPO  =-30: MAXEXPO =30:  SIGNIFICATIF =12; 

TYPE REEL =RECORD 6 
EXPO :MINEXPO..MAXEXPO: 1000 ETUDIANTS, SAODETUPIANTS, 
MANTISSE: INTEGER(SIGNIFICATIF] 3050 AURICDLTEURS , 1 


Tiens 2/ L'ANNEE DERNIERE IL. 
W/ EN AVAÎT MOINS 


END: 
TRESLONG =INTEGEREI32); 
CHOIDECA =SET OF CHAR: 


VAR R1,R2, 
RESULTAT :REEL: 
MAX,MAX10 : INTEGERISIGNIFICATIF); 





DEBORDE : TRESLONG: 
SRESULT : STRING: 
ERREUR : INTEGER: 
OP : CHAR; 
FORMAT : STRING: 


function PCAR(BONSET :CHOIDECA):CHAR: 
var CH : CHAR: 
BON :BOOLEAN: 
begin 
repeat. 
READC(KEYBOARD,CH): 
1f EOLNCKEYBOARD) then CH:=CHR(13): 
BON: =CH in BONSET: 
if ns &CN then WRITE(CHR(?7)) 
else if CH in [’ ’..CHR(130)} then WRITE(CH): 
until BON: 
PCAR: =CH 
end: 
procedure PCHAINE(LONGMAX:INTEGER: BONSET:CHOÏDECA; var S:STRING): 
var Si :STRING[I11: 
CONT :STRING: 


E :INTEGER: H 
begin de 
SLie *,; CONT:="": 5: 
repeat & 


if LENGTHCCONT)=O then S111::=PCARC(BONSET?+[ICHR(13)]) 
else if LENGTHCCONT)=LONGMAX then S1111:=PCAR(ICHR(13),CHR(8)1) 
else S1{1)]:=PCARCBONSET+[(CHR(13),CHR(8)1);: 
4f S1[1]1 in BONSET then CONT:-=CONCATCCONT,S1) 
else 1f S1(1)]=-CHR(8) then 
begin 
WRITECCHR(S8),° ’ ,CHR{8) ): 
DELETE (CONT,LENGTHCCONT),1) 
end; 
until S1(11}=CHR(13);: 
if LENGTH(CONT)<>O then S:=CONT else WRITE(S) 
end; 


LEA 
its. 


iii 


tresse 
ovtisi 


PROCEDURE INITMATH: 

VAR BOUCLE :INTEGER: 

BEGIN 
MAX:=0: 
FOR BOUCLE:=i TO SIGNIFICATIF DO MAX:=MAX#10+9: 
MAX10:=MAX DIV 10 

END: 


PROCEDURE DIAGERREUR(ER:INTEGER): 


BEGIN 
CASE ER OF 


1:WRITE(’Dibordement ”): 
2:WRITE(’Trop petit’): 
38:WRITE(’Divieion par Zero’) 
END 
END: 
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PROCEDURE NORMALISE{VAR RL:REEL ): 


BEGIN 
WITH RL DO 
BEGIN 
IF MANTISSE=O THEN EXPO:=0 
ELSE BEGIN 
WHILE C{MANTISSE-CMANTISSE DIV 10)#10)=0) AND (EXPO<MAXEXPO) DO 
BEGIN 
MANTISSE:=MANTISSE DIV 10: EXPO:=EXPO+1 
END 
END 
END 
END: 
FUNCTION SIGNE(TL:TRESLONG) :INTEGER: 
BEGIN 
IF TL<O THEN SIGNE:=-1 ELSE SIGNE:=1 
END: 
PROCEDURE DIVI1OCVAR M:TRESLONG) : 
BEGIN 
IF M>O THEN M:=(M+5S) DIV 10 ELSE M:=(M-5) DIV 10 
END: 


FUNCTION CONTROLER(CVAR TL:TRESLONG;:; VAR NP:INTEGER) : BOOLEAN: 
BEGIN 
WHILE C(SIGNE(CTL)#TL>MAX)> AND {NP<MAXEXPO)) OR 
CCSIGNECTL)#æTL>0O) AND CNP<MINEXPO)) DO 
BEGIN 
DIVIOCTL): NP:=NP+1 
END: 
WHILE C{SIGNE(CTL)#æTL<MAX)}: AND CNP>MAXEXPO) DO 
BEGIN 
TL:=TL#10; NP:=NP-i 
END: 
CONTROLER:={NP>=MINEXPO) AND (NP<=MAXEXPO) AND (SIGNE(TL)#TL<=MAX) 
END: 


PROCEDURE PREEL(VAR RL:REEL); 





VAR SRL : STRING: 
DEC, XP : BOOLEAN: 
I,NP :INTEGER: 
MOINS,BON :BOOLEAN: 
BEGIN 
REPEAT 
RL.-EXPO:=20; RL.MANTISSE:=0: NP:=0: SRL:=’*;  DEBORDE:=0: 
DEC:=FALSE; MOINS:=FALSE: XP:=FALSE; BON:-=-TRUE; 


PCHAINECSIGNIFICATIF+4,(°+’,°-°,°0°..°9°,’.","E°1,SRL): 
IF SRL=’’ THEN EXIT(CPREEL): 
IF SRL(11=’-° THEN MOINS:=TRUE:; 
221: 
WHILE <I<=LENGTH(SRL)) AND NOT XP DO 
BEGIN 
1F SRLII]1=’." THEN DEC:=TRUE 
ELSE IF SRL(11=’E" THEN XP:=TRUE 
ELSE IF SRLII] IN [’O0°..°9’)] THEN 
BEGIN 
DEBORDE : =DEBORDE# 10+(ORD(SRL{11)-ORD(’0°’)}: 
IF DEC THEN RL.EXPO:=RL.EXPO-1 
END; 
IL:=l+1 
END: 
IF MOINS THEN DEBORDE:=-DEBORDE; MOINS:=FALSE: 
WHILE I<=LENGTH(SRE) DO 
BEGIN 
IF SRLIIJ=’-° THEN MOINS:=TRUE 
ELSE IF SRL(IJ] IN £’0°..°9°1 THEN NP:=NP#10+(CORD{SRLII1)-ORD(’0°)); 
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s=1+1 
END: 
IF MOINS THEN NP:=-NP: 
NP:=NP+RL.EXPO: 
IF CONTROLER(DEBORDE, NP) THEN 
BEGIN 
RL.MANTISSE:=DEBORDE: RL.EXPO:=NP: NORMALISEG(RL) : 
END ELSE BEGIN WRITELN(’#### ERREUR’): BON:=FALSE END 
UNTIL BON 
END: 
C# 2) 
{# FONCTIONS DE COMPARAISON #) 
Cn#s) 
PROCEDURE EGALISEXPO(VAR M1,M2:REEL ): 
BEGIN 
IF M1.EXPO=M2.EXPO THEN EXIT(EGALISEXPO): 
IF M1.EXPO>M2.EXPO THEN 
WHILE CM1.EXPO>M2.EXPO) AND (M1.EXPO>MINEXPO) 
AND (SIGNE(M1.MANTISSE)#M1.MANTISSE<MAX10O) DO 
BEGIN 
M1.EXPO:=M1.EXPO-1: M1.MANTISSE:=M1.MANTISSE#10 
END ELSE EGALISEXPO(M2,M1): 
WHILE (M1.EXPO>M2.EXPO) AND (M2.EXPO<MAXEXPO) AND (M2.MANTISSE<>O) DO 
BEGIN 
M2-EXPO:=M2.EXPO+1: M2.MANTISSE:=M2.MANTISSE DIV 10 
END; 
END: 


FUNCTION EGAL(M1,M2:REEL) : BOOLEAN: 
BEGIN 

EGALISEXPO(M1,M2): EGAL:=M1.MANTISSE-M2.MANTISSE 
END: 


FUNCTION SUPERIEUR(M1,M2:REEL) : BOOLEAN: 
BEGIN 

EGALISEXPO(M1,M2): SUPERIEUR: =M1.MANTISSE>M2.MANTISSE 
END: 


FUNCTION INFERIEUR(M1,M2:REEL) : BOOLEAN: 
BEGIN 

EGALISEXPO(M1,M2): INFERIEUR:=M1.MANTISSE<M2.MANTISSE 
END: 


FUNCTION COMPARE(M1:REEL;:CA:CHAR;:M2:REEL) : BOOLEAN: 
BEGIN 
CASE CA OF 
? zx: COMPARE:=EGAL(M1,M2): 
?<*:COMPARE:=INFERIEUR(M1,M2): 
?>’ = COMPARE: =SUPERIEUR(M1,M2): 
ENR 
END: 





{æ PROCEDURES DE CALCUL #) 

Ca#n) 

PROCEDURE ADDITION(M1,M2:REEL:;VAR RESULT:REEL ): 

BEGIN 

IF M1.MANTISSE=O THEN RESULT:=M2 
ELSE IF M2.MANTISSE=O THEN RESULT:=MI1 
ELSE BEGIN 

EGALISEXPO(M1,M2): DEBORDE:=M1.MANTISSE+M2.MANTISSE: 
IF CONTROLER(DEBORDE,M1.EXPO) THEN 


BEGIN 
RESULT.EXPO:=M1.EXPO; RESULT.MANTISSE:=DEBORDE: 
NORMALISE (RESULT) 


END ELSE ERREUR:=1: 
END 
END: 
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PROCEDURE SOUSTRACTION(M1,M2:REEL; VAR RESULT:REEL ): 
BEGIN 

M2.MANTISSE:=-M2.MANTISSE: ADDITION(M1.M2,RESULT) 
END: 


PROCEDURE MULTIPLIE(M1,M2:REEL:VAR RESULT:REEL);: 


VAR I : INTEGER: 
BEGIN 
IF CM1.MANTISSE=0) OR (M2.MANTISSE=0) THEN 
BEGIN 
RESULT.MANTISSE::0: RESULT.EXPO:= 
END ELSE 
BEGIN 


DEBORDE :=Mi.MANTISSE»*#M2.MANTISSE: 1:=M1.EXPO+M2.EXPO: 
IF CONTROLER(DEBORDE,I1) THEN 
BEGIN 
RESULT.EXPG:=1;: RESULT.MANTISSE:-=DEBORDE: NORMALISECRESULT) 
END ELSE ERREUR:=1 
END 
END: 


PROCEDURE DIVISE(M1.M2:REEL; VAR RESULT:REEL);: 
VAR I : INTEGER:; 
BEGIN 
:=M1.EXPO; 
IF M2.MANTISSE=O THEN ERREUR:=3 
ELSE IF M1.MANTISSE=O THEN 
BEGIN 
RESULT.MANTISSE:=0;  RESULT.EXPO 
END ELSE 
BEGIN 
WHILE (SIGNEC(M1.MANTISSE)}#M1.MANTISSE<MAX1O) AND 
CI>MINEXPO+M2.EXPO) DO 


" 
© 


BEGIN 

Mi1.MANTISSE:=Mi.MANTISSE"#10: I'=I-1: 
END: 
1:=1-M2.EXPO;: 
DEBORDE:=Mi.MANTISSE DIV M2.MANTISSE: 
JF CONTROLER(DEBORDE,1I) THEN 

BEGIN 
RESULT .MANTISSE:=DEBORDE: RESULT.EXPO:=1: NORMALISE{RESULT) 
END ELSE ERREUR:=2: 
END 
END: 


PROCEDURE CALCUL(CM1:REEL;:CA:CHAR;:M2:REEL:;:VAR RESULT:REEL) : 
BEGIN 
ERREUR :=0;RESULT.EXPO:=0;RESULT.MANTISSE::0: 
CASE CA OF 
?+?’:ADDITION{M1.,.M2,RESULT): 
*-?: SOUSTRACTION(M1,M2, RESULT ) : 
2»*':MULTIPLIE(M1,M2, RESULT) : 
*/’:DIVISE(MIi,M2,RESULT) : 
END: 
END: 





Cæ!#) 


(* FORMATAGE BU RESULTAT #; 


Catin) 
PROCEDURE FORMATAGE(MI:REEL;:FM:STRING:VAR SR:STRING): 
VAR LF,PEXPO,I,NC,PDEC,NDEC :INTEGER: 
SNUM,SEXPO : STRING: 
COMPLET : BOOLEAN: 
PROCEDURE AJUSTE: 
BEGIN 
WITH M1 DO 
BEGIN 
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30 Pom's n° 8 


au 


IF EXPO=-NDEC THEN EXITCAJUSTE): 
WHILE CEXPO>-NDEC) AND CMANTISSE<MAX1O)> AND CEXPO>MINEXPO) DO 


BEGIN 
MANTISSE:=MANTISSE # 10: EXPO:-EXPO-1 
END: 
WHILE CEXPO<-NDEC)} AND (MANTISSE>O) AND (EXPO<MAXEXPO) DO 
BEGIN 
MANTISSE:=MANTISSE DIV 10: EXPO:=EXPO+1 
END: 
1F EXPO<>-NDEC THEN ERREUR:=1 
END: 


END: 


PROCEDURE EXPOSANT : 
BEGIN 
PDEC:=LF+SCAN(-LF,=*#°,FMILF])+1; NC:=PDEC-POS(’#’,FM): 
STR(M1.MANTISSE, SNUM) : 
IF NC<LENGTH(SNUM) THEN 
IF (CMAXEXPO>=M1.EXPO+LENGTH(SNUM)-NC) THEN 
BEGIN 
M1.EXPO:=M1.EXPO+*LENGTH(SNUM)-NC:  SNUM:=COPY(SNUM,1, NC) ; 
END ELSE BEGIN ERREUR:=1; EXIT(EXPOSANT) END: 
STR(ABS(M1.EXPO), SEXPO) : 
WHILE LENGTH(SEXPO)<2 DO SEXPO:=-CONCAT(‘0’,SEXPO): 
IF M1.EXPO<O THEN SEXPO:=CONCAT(’-’,SEXPO) 
ELSE SEXPO:=CONCAT(’+’,SEXPO): 
SEXPO:=CONCAT(’E’,SEXPO): MOVELEFT(SEXPO(1],SR(PEXPOI ,4): 
END: 


PROCEDURE DECIMAL: 
BEGIN 
IF PDEC<>O THEN 
BEGIN 
IF PDEC=LF THEN NDEC:=0 ELSE NDEC:=SCAN(LF-PDEC,<>’#”°,FMEPDEC+1)): 
AJUSTE: PDEC:=PDEC+NDEC+i: STRCM1.MANTISSE,SNUM): 
WHILECLENGTH(SNUM) <NDEC+1) DO SNUM:=CONCAT(’O”,SNUM): 
INSERT(”.’,SNUM, LENGTH(SNUM) -NDEC+1): 
END ELSE 
BEGIN 
NDEC:=0; PDEC:=LF+SCAN(-LF,="#",FMILF))+#1:  AJUSTE:; 
STR(Mi.MANTISSE, SNUM) 
END 
END: 


BEGIN {* FORMATE #) 
ERREUR:=0: COMPLET :=FALSE; SR:=°"°; 
IF (FM=’*) OR (POS(’#”,FM)=0) THEN EXIT(FORMATAGE): 
IF FM(1]=’#" THEN 


BEGIN 
COMPLET :=TRUE: FM:=COPY(FM,2,LENGTH(FM)-1) 
END: 
LF:=LENGTH(FM): 
C#SR-x) 
SR(OJI:=CHR(LF) ; 
CRrSR+#) 


FILLCHAR(SR(1],LF,* ’): PEXPO:=POS(C’*"**°,FM): PDEC:=POS(’.",FM): 
IF PEXPO<>O THEN EXPOSANT ELSE DECIMAL: 
IF (PDEC-POS(’#’,FM>)>=LENGTH(SNUM)) AND CERREUR=0) 

THEN MOVERIGHT(SNUM(1],SR[IPDEC-LENGTH(SNUM)I ,LENGTH(CSNUM) ) 

ELSE FILLCHAR(SR(1]J,LF,’?*): 
FOR I:=1 TO LF DO IF NOT(FM£I] IN LC’ ”,’#°,".",°"°)1) THEN SRII)J:-=-FM{Il: 
I:=1: 
IF COMPLET THEN 

WHILE (NOT tSRÇCI] IN (’O0°..°93’,’?7”)1)) AND (CI<=LF) DO 

BEGIN SR(Ij:="#";:1l:=1+1 END: 
END: 


BEGIN (»* PROGRAMME PRINCIPAL POUR ESSAI #) 
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INITMATH: 

REPEAT 
PAGECOUTPUT); 
WRITE(’Progremme d’'’essai 
WRITEC’N1 : ’):PREELCR1);: 
WRITE(® Op : ’):O0P:=PCAR«I" AÉRCPRCE DS 
WRITE(”’ N2 : ’):PREEL(CR2); WRITELN: 
WRITECRI1I.MANTISSE,’E° 
CASE OP OF 


*R1-EXPO,OP,R2.MANTISSE , ’ 


-calcul a 12 chiffres’); WRITELN;:WRITELN;: 


CN PSS A Sr Ale Le 


ET, R2<EXPO;7=79; 


FORMAT:=°?": 


?*E°,RESULTAT.EXPO); 


D 


?..CHR{128)],FORMAT): 


FORMATAGE (RESULTAT ,FORMAT, SRESULT » : WRITELNCSRESULT) 


THEN WRITE(”’vrai’) ELSE WRITE(” faux”): 


PES MT rar 4 / re BEGIN 
CALCUL(R1,0P,R2,RESULTAT): 
1F ERREUR=C THEN 
BEGIN 

WRITELNCRESULTAT.MANTISSE, 
WHILE FORMAT<>’’ DO 
BEGIN 
FORMAT:=""; WRITEC’Format : 
PCHAINE(20,£”? 
IF FORMAT<>’’ THEN 
BEGIN 
WRITE(C” --2>"); 
END 
END 
END ELSE DIAGERREUR(ERREUR) 
END; 

CT RER Ce 2 E ‘IF COMPARE(CR1,0P,R2) 

END: 

WRITELN:WRITE{’Continuer (CO/N)D ? ‘): 

UNTIL PCARCI 202, 2N°, #06" #h"19 IN CN’; n°) 


END. 


DUMPUNE- 


CARTE INTERFACE GRAPHIQUE HAUTE 
RESOLUTION AVEC OÙ SANS BUFFER 


DUMPLING-GX est une carte d'interface paralléle graphique qui per- 
met d'établir une communicationintelligente entre un APPLE Il et la plu- 
part des imprimantes. La sélection d'imprimante se fait par DIP Switch. 
EPSON — C-ITOH — NEC — OKIDAT À — CENTRONICS —TALLY — APPLE 


De simples commandes permettent de gérer la mise en page et les 
fonctions graphiques, entre autres: 

- Longueur deligneetde page-Margesgauche et droite Copie d'écran 
texte - Simulation de graphiques en continu - SOPIE d'écran graphique 
page 1 etou 2.Inversion (noir/blanc) : Rotation 90° - Double format: Dou- 
ble frappe 

DUMPLI.ING-64 offre toutes les possibilités de DUMPLING-GX avec en 
plus un buffer/spooler de 64 K. Principales caractéristiques : 

- Reconnaissance automatique de la tailte du buffer - Multiptes copies 
d'écran consécutives: Compression des espaces : Pause immédiate 
ou différée: Possibilité de commande à distance 

Compatible CP/M où Pascal. 


DUMPLING-GX = 1650FHT  DUMPLING-32 = 2580FHT 
DUMPLING-16 = 2390FHT  DUMPLING-64 = 3390FHT 


SOFIE 207 rue Gallien: 92100 BOULOGNE 


tel, (1} 605.88.78 


IS PipeLine” 
UN NOUVEAU CONCEPT 
PIPELINE est une mémoire-tamponintelligente qui intro- 
duit un nouveau concept révolutionnaire — RANDOM 
ACCESS PRINTING — qui permet: 
- de composer, réorganiser, dupliquer les données à im- 
primer; 
- de combiner texte, tableaux, graphiques dans une même 
impression, 
- de générer automatiquement des états personnalisés a 
partir de lettres, mémos, rapports; 
- de recopier le document unnombre quelconque de fois. 
Le mode RAP permet ainsi de faire travailler ensemble 
plusieurs programmes pour donner une impression 
combinée. 


Le mode FIFO imprime dans l’ordre des entrées (mode 
conventionnel} 

Le mode BYPASS permet la suspension d’une impres- 
sion longue pour éditer une impression courte. 


IS PIPELINE est facilement extensible de 8K à 128 K.iI 
s’intercale entre tout ordinateur et imprimante avec in- 
terface paralléle type Centronics. 


Ce 


à CN = 
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OR TERMINAL 
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PipeLine 





Pom's n° 8 


sommaire thématique 





Deux ans de Pom's : 
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Beaucoup de nouveaux lecteurs nous posent des ques- Tortue Ampersand 6 
tions dont les réponses se trouvent dans les numéros de Le loto, c'est facile... 6 
Pom's déjà parus. Nous avons donc décidé de reprendre  Cryptographie à clef publique 7 
ici le sommaire, classé par thèmes, des huit premiers nu- Les quatre ponts 7 
méros de Pom's. il est à noter que les quatre premiers 
numéros ont été réédités dans le recueil de Pom's numéro ANS 
1, que lon peut commander directement aux Editions Programmes utilitaires 
MEL. 
Des instructions en une lettre 1 
aus > Déplacement du programme en assembleur 1 
Matériels et cartes Numéro  {äyse du contenu des slots L 7e 
9:9: 212 Réparez votre APPEND 2 ** 
0 | Réparez votre RENUMBER 2 w* 
Les mémoires de masse 4 Faites le ménage dans la mémoire 2 
La carte MDOS 6502 à l'essai 4 Sprechen Sie DOS ? : z 
Banc:test de la carte Legend 128K DE 5 S.H.LAM : une routine bien pratique un 
sourde Lis 7 Un exemple de HELLO 3 
L'Apple //e à l'essai 7 co en . : 
: SE] : ersonnalisez vos disquettes 
CE : Un programme de TRACE sélective 4 
Un catalogue général en Pascal à 
a 3 : Chargez vite vos fichiers binaires 
Logiciels commerciaux Un PRINT USING d'intérêt général 4 
Visicalc et Applesoft 1 Le clavier magique 
PL. : Le É Re Line Editor 1 Transfert d'Applesoft vers EXEC 6 
CRAE. : Co-Resident Applesoft 1 Editor 1 Un programme de HELLO complet 6 
Les utilitaires de documentation : Un analyseur de syntaxe 6 
Dakin 5 - Apple Doc - DOS Tool Hit 2 Dump Pascal 7 
Applewriter - Easywriter - Magic Window Gestion de masques en BASIC 7 
Les éditeurs de texte 2 FID, MUFFIN et DEMUFFIN 7 
CCA DMS - PFS - Visifile - DB Master Boot P.LE+C.R.AE. 7 cf 
Bases de données sur Apple 5 Francisez le DOS | 8 Es 
CX Multigestion à l'essai 5 Calculs en format gestion 8 = 
The Last One à l'essai 6 Recherche de codes binaires 8 + 
C.OR P. à l'essai 6 Le Pascal à 12 chiffres 8 x 
Visicalc et traitement de texte 7 Fi 
Le cours de BASIC Applesoft André Finot 7 Pour faire son apprentissage 2 
Multiplan à l’essai 7 P Pace di E 
PILOT et SuperPILOT à l'essai 8 ÉeVo Dane 2x 
FRPenAnonqu ECESSIC 8 Apprentissage de l’assembleur 3,4 5 
Les fichiers EXEC 3 fe] 
È Notions de base (chargement de binaire) 5 
Graphiques Notions de base : les fichiers 4 #3 
Graphiques : de l'ITT 2020 à l'Apple 1 Notions de base : INPUT généralisé 9 
Les adresses du graphique 1 Ergonomie des programmes 5 
Applications de grahique HR. 2 Des programmes relogeables 7 
Contrôlez le nettoyage mémoire 3 Création de fichiers EXEC 7 
Routine de présentation graphique 3 Mini-base de données a 8 
Création de tables de formes 4 Notions de base : gestion de fichiers 8 
Création graphique en Pascal 5 Accélérez vos programmes en BASIC 8 
Logiciel graphique en Pascal 6 Conseils aux débutants 8 
Graphique, quand tu nous tiens. 7 
Graphiques et logique “é Pour devenir expert sur Apple 
Hard Copy Seikosha GP80 7 ; 1 
Un programme de fondu enchaîné 7 Overlay dynamique 2 
Création de caractères graphiques 8 Incursion dans les mystères du DOS 
3 secondes pour trier 2 
Ce re : 
C3 es codes À épluchés 
deux et loisirs Les arcanes du moniteur Apple /// 4 
Un programme aide-mémoire 1 Le moniteur étendu 8 
Changez votre poignée de jeu 1 
F in ar £ Et tant d’autres articles. 
Réponse au concours de Pom's à Des boucles à s’arracher les cheveux l #x 
Robotwar 4 Communication grâce à l'Apple 3 


LE £ € 2.4 
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Communiquez grâce au format DIF 
Un Apple à la clinique 

La 7me W.C.C-F. 

La programmation facilitée 

HAÏIFA : un amper-interpréteur complet 
Tableaux de taille déclarée en Pascal 
Un générateur 

Un programme de test universel 
Effacement de directory en Pascal 
Allo, Questel ? 

Micro-informations : les nouveautés 
Saisie de réels en Pascal 


*+ * 


DOI R BR 


* Article non repris dans le Recueil 1 de Pom's 
#* Parus dans la rubrique Trucs et Astuces 


Remarques 


De nombreux articles pouvaient être classés dans plus'eurs 
catégories : ainsi HAÏFA est à la fois un outil de création 
graphique, un merveilleux utilitaire, l'occasion de devenir 
un expert sur Apple (si l'on analyse les 150 secteurs en 
source Lisa 2.5!). Nous nous sommes efforcés, dans les 
cas de ce genre, de placer l’article dans la catégorie à la- 
quelle il pouvait le plus s'identifier. 


D'autre part, il ne faut pas oublier que, même si la 
compréhension d'un programme peut vous sembler im- 
possible, cela ne vous empêche pas de l'utiliser. On utilise 
couramment des jeux, Visicalc, ou du traitement de texte, 
tout en étant pour la plupart d'entre nous incapables de 
comprendre le programme qui en est la base. 





Conseils aux débutants 


Vous venez d'acquérir un Apple //e ou un Apple /// flam- 
bant neuf et vous vous trouvez confronté au premier pro- 
blème : comment faut-il disposer le matériel ? 


Installation 


En effet, sur la plupart des publicités et brochures, l’on voit 
le moniteur posé sur les deux lecteurs de disquettes, alors 
que le manuel du DOS recommande explicitement d’éloi- 
gner les lecteurs d'un récepteur de télévision. 


En fait, il n'y a pas péril en la demeure. La meilleure 
preuve est que le lecteur incorporé de l'Apple /// se trouve, 
par la force des choses, proche du moniteur | 


Les seules fois où nous avons pu consfter un problème, 
le moniteur avait une base en plastique. Cela se manifes- 
tait par des [/O ERRORSs qui ont disparu quand on a dé- 
placé les lecteurs de disquettes, pour les mettre à droite de 
l'Apple. 


Précautions d'utilisation 


Alexandre Duback 


actuelle. Le verso de la disquette devient alors utilisable, il 
n'est pas garanti par le fabricant, mais ne pose pratique- 
ment pas de problème. 


Bien entendu, ne jamars forcer lors de l'introduction ou de 
l'extraction d'une disquette. Eviter la proximité de tout ce 
qui comporte des électro-aimants, le support magnétique 
étant par définition sensible à leur influence”. En particu- 
lier, ne pas poser le téléphone sur une disquette ! 


Que faut-il lire ? 
Nous conseillons les ouvrages suivants : 


Pratique de l'Apple Il, par Henri Lilen (Editions Radio : 
facile à comprendre, très bien pour les débutants. 


Visicalc sur Apple, par Hervé Thiriez (Editions du PSI): 
indispensable pour une utilisation efficace de Visicalc. 


BASIC Applesoft - Manuel de référence alphabétique, par 
Paul Merty : il fait bien ce qu’indique le titre. Par contre, 
mal encollé, il vous reste dans les mains. 


Clefs pour l'Apple Il, par Nicole Bréaud-Pouliquen (Edi- 


+ A F : | ; .. tions du PS] : voir la rubrique bibliographique de ce nu- 
Der La principale règle à respecter est la suivante : ne jamais MÊtS 
E mettre ou enlever une carte dans un appareil allumé, c'est ; 
di la meilleure façon de griller la carte. La pratique de l'Apple Il (volume Ill), par Nicole Bréaud- 
, | : ne ; Pouliquen et Daniel-Jean David (Editions du PSI): pour 
Le bouton d'allumage de l'Apple a toujours été son point Av ou dédréntannrendre l'accembleur 40060 
faible, surtout en ce qui concerne l'Apple Il Plus. Il est plus q ED É 
prudent (et plus simple) de brancher toutes les prises (Ceci dit, une mine inépuisable de programmes, idées et 
(Apple, moniteur, imprimante, accessoires éventuels) sur renseignements se trouve à portée de votre main dans 
un râtelier de prises, l'idéal étant d'en avoir un muni d'un Pom's. Pourquoi vous en priveriez-vous ? Si une seule 
interrupteur. On laisse alors tous les appareils allumés” en page lue dans un numéro de l'année vous évite de perdre 
permanence, sauf l'imprimante qu'il est inutile de faire une journée, vous avez largement amorti votre abonne- 
chauffer pour rien. ment avec disquettes. En outre, de nombreux programmes 
Ces récautions étant prises, on peut faire pratiquement ce fonte Se la revue (HAÏFA, un programme de HELLO 
ue He a ee cie Use Ve bou Le a griller” un complet, RU de syntaxe, ….) supportent ue la 
ÿ : ; : comparaison avec des programmes commerciaux vendus 
ji par programme : nous savons le faire, mais ne vous de 300 à 900 francs. 
irons pas comment … 
On nous demande souvent pourquoi il n’y a pas d'ouvra- 
ges dans notre langue sur l'Apple //{. Il v a deux principa- 
Les disquettes les raisons à cela La première est que, pendant long- 
temps, les ventes d'Apple ///, assez faibles par rapport à 
À manier avec amour et délicatesse; il est indispensable à celles de l'Apple Il, ne justifiarent pas un tel effort. La se- 
ce titre de lire la rubrique "Trucs et Astuces” à la page 15  conde raison, toujours valable en bonne partie, est que la 
du Pom's 6. grande majorité des possesseurs de l'Apple /// sont des uti- 
Muni d’une bonne paire de ciseaux, ou d’une pince à  lisateurs professionnels : ceux-ci lisent en général peu sur 
tiercé, vous pouvez diminuer par 2 votre budget disquettes le sujet, se contentant souvent de faire tourner la machrne 
en pratiquant une encoche opposée à l’encoche latérale à longueur de joumée avec des programmes standards. 
34 Pom's n° 8 


Le H-BASIC : un BASIC Pascalien 


Pourquoi un 
langage ? 


nouveau 


En pratiquant un peu le BASIC, on 
s'aperçoit très vite des limites du lan- 
gage et peut-être un peu moins vite 
des mauvaises habitudes qu'il fait 
prendre: les GOTOs rendent les pro- 
grammes difficilement lisibles, l’ab- 
sence de variables locales et de vrais 
sous-programmes empêche de traiter 
des problèmes récursifs et rend diffi- 
cile la structuration d’un programme. 


Pour pallier ces limitations, on peut 
passer au Pascal, maïs ce langage 
coûte cher, se montre plus complexe 
et plus difficile à débugger, ne pos- 
sède pas de graphisme basse-résolu- 
tion et est très lourd dès qu'il s’agit 
d'utiliser des routines en assembleur. 
On peut aussi faire du Lisp ou du 
Logo, mais leur spécificité en fait des 
langages un peu à part On peut 
enfin faire du FORTH (nous reparle- 
rons certainement de ce langage 
plein d'avenir). 


Nous avons préféré créer un langage 
hybride possédant les structures de 
bloc du Pascal et ”coltant” de près à 
l'Applesoft. Deux possibilités s’of- 
fraient pour cela: l’amper-interpré- 
teur (c'est-à-dire ajouter des com- 
mandes à l'Applesoft par le biais de 
la commande ampersand &), qui po- 
sait des problèmes de lisibilité du hs- 
ting, et le compilateur (c’est-à-dire un 
programme traduisant un programme 
source éctit en H-BASIC en un pro- 
gramme objet écrit en Applesoft), so- 
lution que nous avons retenue ici. 


Caractéristiques 

du langage 

Un programme en H-BASIC est 
fonné de blocs emboîtés appelés 


procédures, qu’on peut appeler avec 
ou sans paramètres, par l'instruction 


Voici un exemple de programme 
écrit en H-BASIC : 


procédure PRINCIPALE 
var N, P, A$ 


procédure MOINS 
in À: out B 
begin 


end 


begin 
input N 
@ MOINS (NP) 
print P: get A$ 
end 
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Les Variables sont celles de l’Apple- 
soft, les tableaux jouant un rôle parti- 
culier: ils sont représentés par un 
dièse devant leur nom dans la partie 
déclaration de variables et passage 
de paramètres, et on peut définir une 
opération directe sur les tableaux si 
leurs dimensions coïncident: #A=#B 


Les exemples ci-dessous montrent les 
principales instructions pennises entre 
le begin” et le end” d’un bloc : 


for I=1 to 10 
print | 
endfor 


while 1<2000 
=2% 
endwhile 


until I<.01 
1=Ix.3 
enduntil 





De plus, la plupart des instructions 
Applesoft sont pennises (HOME, 
TEXT, &, etc.). 


Un exemple parlant : 
les tours de Hanoï 


Nous joignons un listing type du pro- 


Olivier Herz 


en Applesoft après compilation du 
code H-BASIC. 


Avantages et 


inconvénients 
du H-BASIC... 


Sur l'Applesoft Sur le Pascal 


Mieux structuré 
Variables 
locales 
Affectation 
de tableaux 
Vrais sous-prog. 


Moins complexe 
Debuggage facile 
&-interpréteur 
Instruction DATA 
Graphisme basse 
résolution 


Compilation Lenteur 
assez longue du BASIC 
Plus encombrant | Peu de types 
en mémoire de données 
Peu de noms 
de variables 
Pas de fonctions 





Comment écrire en H.- 
BASIC ? 


Il faut créer un fichier TEXT conte- 
nant le programme H-BASIC. Deux 
méthodes sont possibles : utiñiser un 


blème des tours de Hanoï, écrit en système de traitement de texte 
Applesoft, en Pascal, en H-BASIC et comme AppleWriter H ou bien 
procedure HANCI 
var #NS(2) ,» N%x Hanoï H-BASIC 
procedure DEPLACE: in A, B 
begin 

print NS(AD:"* --> “:NS(B) 
end 
procedure TRANSFERT: in !TAILLE, !DEBUT, ?’FIN 


var 
begin 
if TAILLE=1: 
else 


t AUTRE=3-DEBUT-FIN 


G DEPLACE(CDEBUT,FIN) 


G TRANSFERT(!TAILLE-:, ! DEBUT, ! AUTRE) 


DEPLACE(DEBUT,FIN) 


8 TRANSFERT(!TAILLE-1,tAUTRE, ! FIN) 


endif 
end 


begin 
until N%>0 
text: home 
input 
enduntil: 
NS(1)="MILIEU": 
G TRANSFERT(N%*,0,2) 
end 


“NOMBRE DE DISQUES? 
NS(O)="GAUCHE" 
NS(2)="DROITE" 


V.NS 


EE  * 
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l'écrire dans les REMs d’un pseudo- 
programme Applesoft et créer le fi- 
chier TEXT selon une procédure sim- 
ple expliquée dans la documentation 
du H-BASIC. 


Puis on lance le compilateur qui crée 
à partir de ce fichier un fichier TEXT 
contenant le programme Applesoft. Il 
suffira alors de faire EXEC “nom du 
fichier” et l'on obtiendra le pro- 
gramme Applesoft compilé qu'il fau- 
dra sauver par SAVE. 


Que contient le progiciel 
H-BASIC ? 


On y trouve bien sûr le compilateur, 
écrit en H-BASIC et sa version exé- 
cutable compilée en Applesoft, ainsi 
que quelques routines assembleur 
utiles au compilateur. 


On trouve aussi tout un ensemble de 
routines nécessaires aux programmes 
une fois compilés, routines que l'on 
peut bien entendu utiliser directe- 
ment dans un programme Appiesoft : 
empilement et dépilement de varia- 
bles et tableaux, affectation de ta- 
bleaux, RESTORE NNN, GOSUBs 
quasi-illimités, tout cela par le biais 
d'une pile qui permet la récursivité 
en BASIC. 


On trouve enfin un certain nombre 
de programmes de démonstration 
écrits en H-BASIC et compilés en 
Applesoft, comme le jeu ”’Le compte 
est bon”, exemple récursif de l'intérêt 
du H-BASIC. 


Conclusion 


Nous conseillons bien entendu le H- 
BASIC à tous ceux qui sont à la re- 
cherche d'un langage facile et plus 
agréable que le BASIC. Nous insis- 
tons de plus sur le caractère didacti- 


program HANOI:; 
var NOM: 


N ! INTEGER: 


Hanoï Pascal 


ARRAY£G,..2} of INTEGER: 


procedure DEPLACE (CA,B:INTEGER): 


begin 
writeln(tNOM(A),* 
end: 


--> 


* ,NOMCB)D) 


p#recedure TRANSFERT (TAILLE,DEBUT,FIN:INTEGER) : 


var AUTRE: 
begin 
AUTRE:=3-DEBUT-FIN: 


INTESER': 


1f TAILLE=1 then DEPLACEKDEBUT,FIN) 


begin 


else 


TRANSFERT(TAILLE-1,DEBUT,AUTRE) ; 


DEPLACE{&DEBUT,FIN): 


TRANSFERT(TAILLE-1,AUTRE,FIN) 


end 
end: 


begin 
repeat 
page(eutput): 


writet”’NOMBRE DE DISQUES? 


readlnt@N) 


ses DO 


until N>0: N@MtQ):=" GAUCHE" : 


NÜM(1):=*"MILIEU” : 
TRANSFERT(IN,0,2) 
end. 


que de ce package, l'épluchage d'un 
compilateur écrit ’’dans lui-même” 
étant toujours un exercice passion- 
nant. d'autant plus que l'utilisateur 
peut ainsi facilement modifier le tan- 
gage à sa guise, sans parler des routi- 
nes en assembleur qu rendent l'Ap- 
plesoft récursif. 


NB : l'existence de ces routnes emn- 
pêche une compilation du pro- 


NOM(C2):=:”’DROITE* ; 


LÉ Applesoft (TASC, Expedi- 
ter...) 

Comme il aurait fallu consacrer plus 
de la moitié de la revue au mode 
d'emploi et au listing du H-BASIC, il 
nous à fallu décider d'en faire un 
progiciel à part. Vous ne trouverez 
donc pas le H-BASIC sur la disquette 
d'accompagnement. Celui-ci est 
vendu par correspondance au prix 
de 150 francs TTC, manuel d’utilisa- 
ton compris. 





Hanoï Applesoft 


10 TEXT : HOME : 
ES? ‘:N%: PRINT : 
10 


20 DIM DEBUT(N%) ,FINCN%) ,AUTRECN%) ,NS(2 


>:NS(O) = "GAUCHE":NS(1) = “MILIE 
U":NS(2) = "DROITE“:DEBUT(N%) = O 
:FINCN50 = 2:AUTRECN%X) = 1: GOSUB re A 180 
30: END 

30 IF N%x = 1 THEN A = DEBUT(NxX):B = FIN 
(NX): GOSUB 100: RETURN ES 

40 N%x = N%x - 1:DEBUTCNX) = DEBUT(NX + 1) = 


:FINCN%) = AUTRECN% + 1):AUTRECN% 
GOSUB 30:A = 


) = FINCN%X + 1): 


INPUT “NOMBRE DE DISQU 
IF N% < 1 THEN 


Hanoï H-BASIC compilé 


103 REM 


100 PRINT CHRS (4) '"BLOAD PILE, A32000": 
HIMIEM: 
»YYC9),YYS(C9): & 


382000: DIM 228(19),22(19) 


GOSUB 110: END 


-- DEBUT DE LA PROCEDURE HANOI 


-- PROCEDURE DEPLACE 


129 REM 
DEB 


UTON%X + 1)2:B = FINCN% + 1) 


SO GOSUB 100:DEBUT(N%) = AUTRE(CN% + 1): 130 & 
FINCN%xX) = FINCN% + 1):AUTRECN%) = 
DEBUT(N% + 1): GOSUB 3O0:N% = N% 140 A = 
+ 1: RETURN 0 170 
100 PRINT NS(AD;'" --»> “:NS(CB): RETURN 150 22(0) = 


FHENTTI anti tétienens 
AO EEE EREEEEEREEEEEN à 5 
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PRINT NS&CA)D;" 


TAILLE - 


--> "NSCB)D: &  RETUR 


—— PROCEDURE TRANSFERT 


> AUTRE:AUTRE = 3 - DEBUT - FIN: 
IF NOT (TAILLE = 1) 
DEBUT:B = FIN: & 


THEN 150 
GOSUB 120: GOT 


1:22Z(1) = DEBUT:22( 
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2) = AUTRE: & > TAILLE,DEBUT,FIN 
TAILLE = 22(0) :DEBUT = 2Z2(C1):FIN 
= 22(2): & GOSUB 130: & < FIN, 
DEBUT,TAILLE:A = DEBUT:B = FIN: & 
GOSUB 120:22(0) = TAILLE - 1:22 
(1) = AUTRE:22(2) = FIN: & > TAI 
LLE,DEBUT,FIN 


160 TAILLE = 22(0):DEBUT = 22(1):FIN = Z 
Z(2): & GOSUB 130: & < FIN,DEBU 
T,TAILLE 

170 & < AUTRE: & RETURN 


Trucs et 


Les joies du PR# 


PR# n reprogramme le saut de la sorte de caractères 
vers le slot n (0 pour l'écran)è de même, IN# n repro- 
gramme l'entrée de caractères (0 pour le clavier) Tout 
cela se fait à l'aide des routines situées de $Cn00 à 
$CnFF de la PROM du slot. 


Or, si le slot est un contrôleur de disquettes, l'appel de 
ja routine fait rebooter : ainsi, PR# 6 ou IN# 6 entraî- 
nent le boot. 


Apple // 


179 REM 

-- CORPS DE LA PROCEDURE HANOI 

180 & > #NS: DIM NS«(C2) 

130 TEXT : HOME : INPUT ‘NOMBRE DE DISQ 
UES? “°N%: IF NOT CN% > O) THEN 
1930 

200 NS(O) = "“GAUCHE‘:NS(1) = "“MILIEU":NS 
C2) = “DROITE: & > TAILLE, DEBUT 
»FIN:TAILLE = N%x:DEBUT = O:FIN = 
2: & GOSUB 130: & < FIN,DEBUT,,T 
AILLE: & < #NS: & RETURN 

astuces 


Mais le boot n’a pas lieu tout de suite si l’on fait pa- 
tienter avant ia lecture ou l'écriture d'un caractère. Par 
exemple, faire en Applesoft : . 

‘PR# 6:FOR 1=1 to 100OBO:NEXT 

Voir dans le Pom's, page 26. pourquoi nous débutons 
par % «à ” x 2 

On peut aussi lancer le programme : 

10 BRINT NE RMELERT 6”: IF PEEK (—-16384)<128 


Amusant, n'estce-pas ? 


TITI HE 


[AL 
- 


Apple /// 


leurs interfaces, 
leurs périphériques, 
leurs logiciels 


Démonstrations Jeudi 


au m.b.d.c. 


172, rue Solférino - 59800 LILLE TEL. (20) 57.91.87 


® L'ordinateur personnel 


concessionnaire agréé APPLE - S.A.V. sur place 


ouvert du mardi au samedi de 9h30 à 12h et de 14h30 à 19h 





ET LESNETTITES NI 
Le SSSR 2 . _ 





Pom's n° 8 


PAP EEE 




























L'AGENCE AUX CUENTS 


Les Lonciels Saan 
ont obtenu la Pomme dOr 
et le label Bureau Véritas. 
Vous savez maintenant 
à qui vous fier. 


leurs logiciels. Nous aussi. C'est humain. c’est normal. 

Mais la différence c'est qu'il n'y a pas que Saari 
pour dire du bien des logiciels Saari. 

Parmi plusieurs dizaines de logiciels la Paie 
Gipsi a obtenu la récompense suprême décernée 
par Apple, la Pomme d'Or du Logiciel. 

Afin d'apporter un maximum de sécurité à ses 
clients, Saari a confié au Bureau Véritas le soin de 
tester ses programmes pour vérifier leurs qualités. 
Le label Bureau Véritas attestant de ces contrôles est 
apposé sur les programmes Saari. 

La Presse informatique a beaucoup parlé des 
Logiciels Saari, louant leurs qualités: facilités d'uti- 
lisation où d'apprentissage, richesse fonctionnelle, 
sécurité d'emploi où finition. 

Les Logiciels Saari sont également conformes 
aux derniers textes légaux parus. 

Mais il y a aussi plusieurs centaines d’utilisa- 
teurs heureux pour dire du bien de nos logiciels. 
Des utilisateurs rassurés en particulier par le Saari 
Sécurité Service, un ensemble de services exclusifs 
à Saari. 

Saari, aujourd'hui, ce sont trois logiciels, une 
Comptabiité, une Paie et une Gestion de Dossiers. 

Trois logiciels à qui vous êtes sûrs de pouvoir vous 


1 saari 


« L'Esprit Français » 


45,rue Galilée, 75116 Paris 
Tél. (1) 723 78 56 - Télex 611 423 


mm nn en ee ee ee ee © ee ee ee ee ee 


Bon pour une documentation gratuite. 
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NDLR : la très grande longueur de 
cet excellent moniteur étendu nous à 
amenés à couper une partie du lis- 
ing. Nous avons ainsi coupé du 
“source” imprimé les routines de 
TRACE (732-749). STEP (750-846) 
et MINI-ASSEMBLER (918-1089), 
qui correspondent à des thèmes déjà 
traités dans Pom's. En outre, pour 
faire de la place, les routines de 
conversion (501-638) et de recher- 
ches de codes (394-500) ont elles 
aussi été court-circuitées. Le pro- 
gramme source complet se trouve 
sur la disquette d'accompagnement, 
ainsi qu'un programme DUMP en 
Basic permettant à ceux qui ne pos- 
sèdent pas le Big Mac de faire la liste 
complète du source sur leur impri- 
mante. La récapitulation à la fin de 
cet article est bien entendu complète; 
bon courage à ceux qui tiennent à 
lentrer au clavier (la disquette d’ac- 
compagnement est disponible pour 
50 FF TTC). 


Le moniteur d'origine de l'APPLE II 
occupe Z2K octets, de $F800 à 
$FFFF. Dans cet espace plutôt réduit, 
ses concepteurs ont tout de même 
réussi à loger un désassembleur, en 
plus de toutes les commandes indis- 
pensables. Lors de l'introduction de 
la ROM AUTOSTART, certaines 
fonctions furent rajoutées (ESC- 
LJ,K.M; CTRL:-S; Auto-Boot; ..) au 
détriment des fonctions STEP et 
TRACE. 


L'un des premiers objectfs de ce 
moniteur étendu fut de recréer ces 
fonctions; vous allez voir qu'il va fi- 
nalement bien au-delà ! 


Parmi les fonctions les plus remar- 
quables, il faut noter : 


— le pas-à-pas (STEP) 

— le pistage (TRACE) 

— le mini-assembleur 

— le point d'arrêt 

— Ja recherche d’octet 

— les minuscules au clavier 

— les conversions HEXA — DECI- 
MAL et DECIMAL — HEXA 

— l'addition et la soustraction sur 16 
bits. 


1. Appel du moniteur 
étendu (&) 


Ce moniteur est écrit en Big Mac. 
Son assemblage nécessite la version 
64K du Big Mac; sinon, il faut cou- 
per les remarques pour regagner de 
la place et assembler en version 48K. 
Il occupe les emplacements mémoire 
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$8D00-—-$95FF. Pour l’appeler, il suf- 
fit de taper : 


8D00G depuis le moniteur, 
CALL 36096 (ou CALL —29440) 
depuis le BASIC. 


Une autre solution consiste à simple- 
ment faire BRUN MONITEUR” à 
partr du BASIC. 


Vous pouvez savoir que vous êtes 
sous son contrôle grâce au signe 
(PROMPT) et au nouveau son de la 
cloche. Le nouveau signe est un as- 
térisque affiché en inverse. 

Si vous êtes en BASIC, tapez main- 
tenant ”&” puis RETURN”. Le mo- 


niteur vous répond: ‘<< AMPER-' 


SAND OK >>”. Par la suite, pour 
appeler le moniteur depuis le BASIC, 
il vous suffira de taper à nouveau 
°&” et "RETURN”. De plus, on re- 
tourne au moniteur si on tombe sur 
un BRK (par exemple CALL -35 ou 
FFDDG) car le moniteur repro- 
gramme le BRK (119-122). 


2. Les commandes 


D'une manière générale, la syntaxe 
des commandes a été calquée sur 
celle du moniteur d'origine (sauf RE- 
TURN seul qui n'affiche plus les 
octets de la mémoire): les adresses 
où arguments se placent devant, im- 
médiatement suivis par une lettre de 
commande, sans espace. Plusieurs 
commandes peuvent s'’écrire sur une 
même ligne. Les commandes ’nor- 
males” du moniteur fonctionnent 
toujours de la même facon, mais affi- 
chent parfois des indications complé- 
mentaires. C'est le cas par exemple 
de la commande ”:” qui. après le 
RETURN suivant, affiche l'adresse et 
le contenu du prochain emplacement 
mémoire dès que l'on enfonce la 
barre d'espace : 


2000 :A9 00 A2 FF [RETURN] 
[ESPACE] 
2004(AA) : 


Cela est souvent utile lorsqu'il faut 
taper toute une liste d'octets; on est 
sûr de ne pas sauter une adresse. 


Marche arrière( /\) 


Pour corriger une erreur, il est possi- 
ble de revenir à l'adresse précédente 
en tapant A” juste derrière le 
prompt, au début de la ligne sui- 
vante. L'adresse précédente s'affiche 


alors, suivie de son contenu entre 
parenthèses. Après le ”:”, tapez 
alors la donnée. cette fois-ci sans er- 


reur 


Stockage de texte (;) 


Il est parfois utile de mettre des ca- 
ractères ASCII directement en mé- 
moire, comme on entre des octets 
par la commande ” :”. Pour cela, on 
tape l’adresse, un point-virgule, et le 
mot ou la phrase que l’on veut sto- 
cker en mémoire : 


2004:CECI EST UN EXEMPLE 


Tous les caractères, y compris les es- 
paces seront rangés à partir de 
l'adresse specifiée, jusqu’au dernier 
caractère qui précède le RETURN. Si 
l'APPLE est en mode INVERSE à ce 
moment, les caractères sont stockés 
en inverse (commandes ”l” pour In- 
verse et ”’N’”’ pour Normal). 


Examen mémoire  Hexa- 


ASCII (H) 


Cette commande permet de visuali- 
ser le contenu d’une portion de la 
mémoire en hexadécimal et en 
ASCIE Tapez la première adresse à 
examiner, puis ’H”. L'ordinateur af- 
fiche alors 22 lignes comportant 8 
octets et leur représentation ASCII : 


2000H 


200%- 49 00 A2 FF C3 CS CS C9 
2008- A6 C5 D3 D4 AO DS CE A6 
2010- C5 DB CS CD Dé CC CE 26 
2018- 53 38 ÀS 952 ES 54 AA ÀS 
2020- 535 9 06 ...,,. 


EST IN 


Le bit de poids fort est ignoré; les ca- 
ractères de contrôle sont affichés en 
clignotant. Un ‘”’H” non précédé 
d'une adresse affiche les 22 lignes 
suivant celles du dernier H normal. 
Les adresses de $C000 à $COFF 
sont automatquement sautées, car 
elles ne correspondent pas à de la 
mémoire et leur ”lecture” acciden- 
telle est dangereuse pour les pro- 
grammes qui se trouveraient en RAM 
à cet instant. Appuvyer sur la barre 
d'espace affiche les 22 lignes suivan- 
tes. N'importe quelle autre touche re- 
vient en mode commande. 


8" CECI 


EXEMPLES 
SBXRFTEX 





ati] 
LENXI 


SECRET HESRIFEEN ES 


Li] 
+ 
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x: set 
AEUATE ES 


zx 


RAA TIR Eesti 


NDLR: if n'est pas tout-à-fait vrai que 
le bit de poids fort soit ignoré, Faire 
pour ke voir FOR Æ0 TO 255: 
POKE 8192+#11: NEXT [”, puis 
2000H sous le moniteur. 


Recherche d'octets {(/) 


Cette commande permet de recher- 
cher un octet ou une série d'octets, 
entre deux adresses. Donnez la pre- 
mière adresse à partir de laquelle 
vous désirez commencer à chercher, 


un point, la dernière adresse à exa-: 


miner, une barre de fraction (/), l'oc- 
tet ou la série d'octets que vous 
cherchez, et RETURN. 


F800FFFF/20 ED FD 


Le moniteur va explorer toutes les 
adresses depuis $F800 jusqu'à 
$FFFF et afficher toutes les adresses 
ou il trouve la suite d'octets $20, 
$ED et $FD. Par exemple : 


F903,F91B,F923,F94CFAE6,FAEC, 
FAF1,FD47,FD64,FD6C,FDB8. 
FDD6.FE46,FE4B,FESS,FF2FFF34, 
FF37 


Notez que, là encore, le moniteur 
saute automatiquement les adresses 
de $C000 à $COFF. Notez aussi qu'il 
range votreibte d'octets dans le buf- 
fer clavier {en $200); ne soyez donc 
pas surpris qu’il l'y retrouve. 


Recherche de cartactères (”) 


Variation de la précédente, cette 
commande suit à peu près la même 
syntaxe : 


F800.FFFF”APPLE 
FBO9, 


l est important de noter que le mo- 
niteur retrouvera un mot qu'il soit en 
NORMAL, en INVERSE, en FILA- 
SHING ou même en minuscules. Si 
vous n'êtes pas sûr de l'orthographe 
d'un mot, vous pouvez Sr 
une, ou plusieurs lettres par ”=” 


800.9600"ROU=E 


Dans ce cas, le moniteur retrouverait 
indifféremment ROUEE, ROUGE, 

ROULE, etc. Le signe =” est ce 

qu" ‘on appelle en anglais un caractère 
wild card”. 


Ne soyez pas surpris non plus que le 
moniteur retrouve la liste de caractè- 
res dans la mémoire associée à 
l'écran ($400-$7FF). 


Conversion en décimal ($) 


Tapez ie nombre à convertir, un dol- 
lar, et RETURN. L'équivalent déci- 


mal est alors affiché, suivi de sa re- 
présentation en négatif s’il y a lieu : 


C000$= 49152 (—-16384) 


Conversion en hexadécimal 


Tapez le nombre à convertir, le signe 
=" et RETURN. L'équivalent hexa 
est affiché, suivi de la conversion 
complémentaire si cela est possible : 


16384-$4000 (—16384=$C000) 


Addition et soustraction 
(+,—) 


Ces opérations fonctionnent de la 
même manière que sous le moniteur 
d'origine, mais peuvent traiter des 
nombres de 16 bits (4 chiffres hexa) : 


1AF7+ C3B = 2732 
CO080-BFAF-= 00D1 


La pause, ou point d'arrêt 


(P,O,X) 


Il est fréquemment utile de connaître 
l'état des registres à certains endroits 
du déroulement d'un programme, 
lors de sa mise au point par exem- 
ple. La méthode usuelle consiste à 
placer un “break” (00) à l'endroit 
désiré, et à rétablir la valeur d'origine 
après son exécution. Ce moniteur 
propose une alternative moins pri- 
maire ; tapez l'adresse où vous dési- 
rez voir le programme s’interrompre, 
"P”, et RETURN 


2004P 


L'astérisque {le prompt) se met à cli- 
gnoter, signalant la modification de 
votre programme. Lors du lancement 
de celui-ci, tout se déroule nonnale- 
ment jusqu'à l'adresse du point d'ar- 
rêt. À cet instant, le contenu des re- 
gistres est affiché, le point d'arrêt est 
supprimé, le programme est restauré 
et l'astérisque arrête de clignoter : 


2004 A=00 X=FF Y=7 
P=NVBDIZC S-E7 


Remarquez l'affichage détaillé du re- 
gistre ’P”. Chaque drapeau est re- 
péré par son initiale standard s’il est 
à 1, ou par un point s'il est à 0. Cet 
affichage est obtenu également lors 
de la commande ’CTRL-E”. 

Une seule pause peut être mise en 
place à la fois Si vous oubliez 
l'adresse où vous avez placé un point 
d'arrêt, tâpez *O” et RETURN pour 
retrouver cette adresse. Si vous 
changez d'avis et désirez supprimer 
un point d'arrêt sans exécuter votre 
programme, tapez ”X” puis RE- 
TURN. 


Er 


a0 


Le moniteur mémorise l'adresse de 
la pause et son ancien contenu à 
partir de $2FB; il est donc primordial 
de ne pas toucher à ces adresses tant 
que la pause est en vigueur. Notez 
aussi que le point d'arrêt doit être en 
RAM. 


Le STEP, ou pas-à-pas (S) 


Comme son nom l'indique, 
commande permet d'exécuter un 
programme instruction par instruc- 
ton. L'adresse est tapée, suivie de 
”S” et RETURN : 


20008 

2000-— A9 00 LDA #$00 
A=00 X=32 Y=07 
P=...B..2 S=E7 


Ensuite, il suffit d'appuyer sur la 
barre d'espace pour exécuter l'ins- 
truction suivante, ou sur n'importe 
quelle autre touche pour sortir de ce 
mode. Si aucune adresse n'est spéci- 
fiée avant le ”S”, l'adresse prise par 
défaut est celle rangée en $3A,$3B 
(PCL,PCH) lors d'un STEP antérieur 
ou d’un point d'arrêt par exemple. 
Ceci permet de parb'r en pas-à-pas 
immédiatement après une pause. 


cette 


La TRACE, ou pistage (T) 


Cette commande n'est autre qu'un 
STEP perpétuel, et obéit donc aux 
mêmes règles que celui-ci : 


2000T 

2000- A9 00 LDA #$00 
A=00 X 232 Y=07 
P=...B. 7 S= E7 


2002- A2 FF LDX #$FF 
A=00 X=—FF Y=07 


2004— C3... 


La vitesse de défilement est réglable 
par le paddie O0. Une pression sur le 
bouton fige l'écran afin de pouvoir le 
lire tranquillement, relâcher le bouton 
pour continuer. Appuyez sur n'im- 
porte quelle touche du clavier pour 
en sortir. Cela peut ne pas marcher 
si les poignées ne sont pas connec- 
tées. 


Utilisant les mêmes adresses en page 
zéro que les anciens STEP et 
TRACE, ces deux commandes souf- 
frent des mêmes contraintes : impos- 
sible de pister un programme qui uti- 
liserait les dites adresses. 


Le mini-assembleur (!) 


Voici une vieille connaissance ! Dis- 
ponible d'origine avec l'INTEGER 
BASIC, cette facilité est de nouveau 
à votre disposition. Il vous suffit pour 
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cela de taper un point d'exclamation 
(1) et RETURN. 

Son utilisation est décrite en détail 
dans le manuel de référence APPLE. 
Tapez ”’* ”” en début de ligne et RE- 
TURN pour revenir sous le contrôle 
du moniteur étendu. 


Copie en remontant, ou 
mode inverse (>) 


Il ariive assez souvent que l’on ait à 
déplacer un bloc mémoire de quel- 
ques octets vers Je haut, Ja 
commande MOVE (M) est alors im- 
possible à utiliser car les premiers 
octets sont recopiés ’’par-dessus” les 
suivants. Exemple : 


2005<2000.2100 


Dans cet exemple, les octets de 
$2000 à $2004 seront bien recopiés 
en $2005-$2009, mais la suite 
$200A—-$2105 contiendra également 
cette même série de 5 octets répétés 
sans arrêt. Pour remédier à ce pro- 
blème, utilisez la commande : 


2000.2188>2005 


Ne tapez pas ”’M”, sous peine de 
plantage” catastrophique dans cer- 
ins cas, tapez tout de suite RE- 


, 
, 
% 


publicité yves ruhimann mulhouse 


TIGINES 
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TURN. Notez le choix des signes 
”<” et >” qui rappellent le sens 
dans lequel se fait le déplacement. 


La saisie des minuscules (K) 


Tapez tout de suite ”’K” et RETURN. 
Le curseur change pour vous signaler 
que vous avez quitté le fonctionne- 
ment habituel de votre clavier. À par- 
tir de ce moment. CTRL-S commute 
le mode ‘minuscules’ et CTRL-A 
commute le mode majuscules”. 
Notez que le DOS est provisoirement 
déconnecté. Notez également que la 
modification de la touche SHIFT est 
reconnue. 


Sortie du moniteur (Q) 


Pour quitter le moniteur étendu et 
revenir au BASIC, tapez ’Q” et RE- 
TURN. Le DOS est alors connecté 
(= 3D06), la saisie des minuscules 
n'est pas affectée; vous pouvez donc 
entrer des minuscules sous BASIC et 
sous DOS. 


Attention : RESET ou PR#n décon- 
nectent la commande ”’K” (plus de 
minuscules au clavier) ! 


772 


LLC LL LOL OIL 


WI 


4, 
W, 


e 


DOM 


è 








Re-vectoriser le RESET (%) 


Si vous désirez pouvoir retomber 
dans le moniteur étendu par appui 
sur RESET, et que vous avez la 
ROM AUTOSTART, tapez "%”. Le 
moniteur étendu répond << RESET 
OK >>, c'est tout. Pour renvoyer le 
RESET au BASIC, dans le cas d’un 
48K avec le DOS, tapez : 


3F2 :BF 9D 38 


Tapez ensuite RETURN, c'est ter- 
miné. Remarque : la ROM Autostart 
déconnecte systématiquement l'es- 
pace $C800—$CFFF). 


NDLR : i y a un léger bug” dans 
l'entrée du moniteur. Faire deux flè- 
ches à gauche puis taper sur les tou- 
ches "L’”’ et "RETURN" avec ce mo- 
niteur et celui de i’Appplesoft donne 
des résultats différents. En fait, le 
buffer d'entrée est décalé d’un carac- 
tère par rappoit à l’Aufostart {faire 
NNN200L dans les deux cas pour 
voir) ; changer cet état de choses 
s'avère compliqué à la vue du 
source : nous ne l'avons pas fait. 


Na 


RS of e\ 
SET 





C'ABSRFEN RETIRE 


4 


D HFERERRER EE EEREFERQUEEROEFEFEEEOS Big Mac Bi INSDSi $F882 “détruit À, X,Y 





2 * + 64 K 62 INSDS2 = $FBBE 
3 # EXTENSION DU MONITEUR + 63 INSTDSP =  $FBDO “détruit A, X,Y 
à # DE APPLE IT + # 64 PRNTYX = $F940 ‘détruit À 
5 # + 65 PRNTAX = $F 94 sdétruit À 
6 # Thierry Le Faliec + 66 PRBLNK =  $F948 détruit A,X 
7# + 67 PRBÈ2 = $F94h 
D RARES EEE 68 PCADJ =  $F953 
9 69 PCADJ2 =  $F95é 
10 # / 5 Mai 1983 70 PCADJS =  $F956 
{1 71 CHAR! = $F9B4 
12 DR6  $9D00 : (CR: -29440) 12 CrhAR2 = $F9BA 
13 Tà NE = $F9c0 
14 CH = $26 74 MNEMR = $FA00 
15 BASL =  $24 75 RTBL =  $FB19 
16 RTM =  $2 76 SREAD =  $FBIE détruit A,Y 
17 RTE = $2 71 INIT = SF 
18 FORMAT =  $2Æ 78 &P =  $FCIA 
19 LENGTH =  $2 79 CLREUP =  $FC42 “détruit A,Y 
20 x02E = $31 80 WAIT = $FCAB sannuie À 
21 INVALG =  $3 81 RDXEY =  $FDOC 
2 PROMT = #3 82 RDCHR = $FD% 
23 YSAV = +3 83 GETIAZ =  $FD67 
24 1 = $3s, 84 NATEHAR =  S$FD7S 
25 CS =  $3%6 8S CROUT =  $FDME détruit A 
# ca DS Pour garder. les accents 86 PRAI LE sdétruit A,X,Y 
27 KSi = 53 dans les commentaires, 87 PRBYTE =  $FDDA “détruit À 
28 KSWH = $33 nous avons mis l'impri- 98 COUT =  $FDED “détruit A 
29 PC: = #5 mante en mode français.- B9 COUTT =  $FDFO 
30 PCA = 43 Ainsi, ”£” signifie ”’#”. 36 EL1 =  $FE00 
3i XET = $C 91 BLANK = $FE04 
32 CPAND =  $3 92 SETMODE =  $FEIB 
33 RiL = $x 53 LT =  $FE20 “détruit A,X 
4 AI 5  $3 94 MOVE =  $FEZC 
3 AZ = $X 95 VFY =  $FE% 
3 92H = $F 9% LIST =  $FEX 
37 AK =  $i0 97 AiPC =  $fE7 
38 A3 = $éi 38 AipCi.P = $FE78 
33 A&t =  $62 99 SETINV =  $FE80 
40 4H = 100 SETNORM =  $FEB4 
&i FWF = fé 101 SETKBD =  $FE89 
42 ACC = $es 302 INFRT =  $FEBD 
43 RES =  $6 103 SETVID =  $FE93 
4h STATUS =  $48 104 OUTORT =  $fE97 
45 TEM = gen 105 XBASIC =  $FEBO 
&6 DIGIT =  $4E 106 BRSCONT =  S$fEBS 
47 RNDE = $GE 107 69 = $FEBS 
48 RNDH = $4r ‘68 LSR =  $FECA 
49 STARTFLE =  $éF 109 WRITE =  $FECD 
50 INBIFF =  $200 110 READ =  S$FESD 
51 SUIT =  $300 LES ROSTOR = S$FF3F cétruit À,1,Y,P 
92 SUFTEV =  $3F2 112 SAVE =  $fF4h détruit À 
S3 AMPERSND =  $3F5 LS GETNM =  $FFA7 scétruit A,X,Y 
Sh SHETLOCK =  S$J7E 114 MODE = $FfC7 
58 MINFLAG =  $7FE 319 TR ON tronque ie listing (cel, 2) 
56 KBD = _ $c000 116 
37 KBDSTRB = $£O10 117 #es DÉBUT DU AONITEUR ETENDU #64# 
58 SPKR =  $0D 118 
99 PUSHBO =  $COs1 119 START DA £XBRK “revettorise le breax 
60 SHIFT = 


$C06s 120 STA $3F0 


D 
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126 

127 #ON 
i28 

129 HON7 
136 

F3! 

132 

133 SETERMET 
134 STPRMP51 
135 #ONZi 
i36 

137 

138 

139 

140 

4 

142 

iàs 

1ä4 MON72 
#45 

6 

147 MONZS 
148 

149 

190 

151 

192 

153 

154 

155 

156 

“y 

558 

159 

160 #ONZ4 
i6i 

182 

163 

164 AXTITE 
165 

166 

167 CHSRCH 
168 

:83 

170 

171 

172 

NA 

574 CRYON 
179 

176 

:77 CRAONi 
178 

173 

180 CRMON2 
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LA 
STA 
JSR 
JSR 
J5R 
JSR 
CiD 
JSR 
BIT 
BI 
LDA 
BVS 
LDA 
STA 
JSR 
LDA 
J5R 
JSR 
CMP 
BNE 
LDA 
BNE 
DEC 
DEC 
DEC 
LDR 
CP 
BNE 
LDX 
LDA 
[SR 
DEY 
DR 
JSR 
DA 
JSR 
54 
JSR 
DA 
LDX 
JSR 
JSR 
NY 
JSR 
SFY 
iDY 
DEY 
B“I 
CP 
BKE 
JSR 
DY 
JKS 
CP 
ENE 
JP 
CP 
BNE 
JXP 
CP 


£)XBRX 
$3r1 
SETVID 
SETKBD 
SETNORH 
INIT 


PR£O 
:INEO 
sNCRrAL 
sTEXT 


BELL 
PROMPT 
SETPRMPT 
£$6A 
STPRMPT: 
£+ 
PROMPY 
CROUT 
PROMPT 
COUT 
ROCHAR 

; ah n 
MONZI 
BS 
MONZ2 
ASH 

LE 

AîL 

ê Hu" 

g" 


“prompt = *£" eu ")" ? 

oui =} prompt = ‘# inverse. 
non +) teste si gause 

* flashe ’#° si oui. 
“inverse ’#? sinon, 


“affiche je prompt 
‘et attend une touche. 


‘touche espace 7? 
“ON 24 non =} attend une iigne 
Le ‘oui =} affiche La oroctaine 
ASK : acresse 
SRNTAX 

: {raz Ÿ) 
r AU (LI 
CIu7 
(AGE), Y 
PRAYTE 
£")" 
COUT : entre 2arent'ièses. 
£":" s#oce stockage cd’ octets 
£i ‘siaule la fin de GETiLAZ 
NXTCHAR+S attend la suite ce la commance 
IMDDE 


et son contenu 


"(11 y a déjà eu une touche} 
GETNUM ‘lit une acresse 
YSAV 


£SUBTBL-CHATBL :34 somrances ! 


HON 
CHARTE V 
CESRC: 
TISUB 
VSAV 
NXTITM 
ê # + H 
CRMON£ 
RDDITN 
ê it 
CRHON2 
SOUSTR 
£":" 


sacdition? 


‘soustraction? 


stockage en sémoire? 


Fais Pa 
+ a & de. ETAETL IL 2Ls AU 
L PRIS RMÈESLS ES EE 


{gi 
tB2 
183 CRAONS 
84 CRYON4 
185 

186 

187 TOSUB 
188 
189 
190 
191 
132 
193 
194 
195 
1% 
197 


CHRTBL 


253 SJBTB. 
240 


LDA 
pHA 
LDA 
J#R 


DFB 


CRMONS 
STORE 
BL 
sajuste la pile 
MONT: 
sY=Y#2 
SUBTEL, Y 
‘sauve la partie haute 
SUBTBL+1,Ÿ et la partie basse 
de l'adresse (ordre). 
MODE 
IMODE 


##k## TABLES DES ORDRES ET DE LEUR ADRESSE #### 


+ {CHR = commande {OR $30 + $09) 


$82:48+9 
$83'48+9 
$85!48+9 
$88:48+9 
$8Dt48+9 
$90:48+9 
$99!48+9 
“ #148+9 


“{etri-Blasic 

s(ctri-C) 

s{ctri-Eixamine les registres 
s{ctri-K) 

+ (ATK) 

sctrl-P} 

+(ctri-Y} 

; (espace) 

“("148+9 :(!)} wini-assesbieur 

"R"148+9 :(*) recherche en ASCII 
#$"148+9 : ($} convertit en décimal 

"x" 48+9 :(X) vectorise le reset 
#4"148+9 : (8) vectorise i’ ssversand 
“+"148+9 :(+) 
"ett48+9 :(-i 
",#148+9 :€,) 
"14849 »(/) 
"i"148+9 :(:) 
"e"148+9 :(:) 
"{"148+9 1 (0 
#="148+9 : (=) 
")*148+9 :1)} 
#6"148+9 :{(6jo 
"H°148+9 : (Hiexa/ASCII 
"1"t48+9 : (Tinverse 

"K"148+9 : (Keyin ninuscuies 
"Le 48+9 : (hist 

"R'148+9 :(M)ove 

"N"148+9 : (Njormal 

°0":48+9 ; (0)bserve pause 
"p"148+9 : (Pause 

"9"148+9 :(Hluitte -) $3D0 
"R"148+9 : (R)ead 

"G"148+9 » (S)ten 

"T5148+9 : (Thrace 

"V"L48+3 s (Vlerify 

“4"!48+9 ;{wirite 

“X"148+9 :{X) supprime ia pause 
XBASIC-{ 

BASCONT-1 


recherche d’octets 
stockage de texte 


convertit en hexa. 
déplace vers le haut 


26! 
242 
243 


DDB 


DDB 


DDB 


DDB 


DDB 
DDB 
DDB 


RESDS? -1 
INPRT-{ 
CRHCN-1 
OUTPRT-1 
USR-1 
BLANK-1 
MINIASM- 
SRCHASC-1 
PRDEC-1 
RSTVECT-1 
AMPVECT-1 
SETMODE -1 
SETYODE-1 
SE MODE -1 
SEARCX-{ 
SEYMODE-! 
STORETXT-{ 
LT=4 
PRHEX-1 
MOVEUP-1 
60-1 
HEXASC-1 
SETINV-1 
LWINKEY-1 
LIST-1 
MOVE -1 
SETNDRM-{ 
DBSERV-i 
PAUSE -1 
GUIT-i 
READ-1 
STEP-+ 
TRACE-1 
VFY-1 
WRITE-1 
SUPPAUSE -1 


Hat RE-VECTORISE L'AMPERGAND #4 


AMPVECT 


SRMESSG1 i 


LDA 
STA 
LDA 
STA 
LDA 
STA 


€$ac 

AMPERSND 

£START 

AMPERSND+1 

£ISTART 

RMPERSND+2 

ün :reaonte je curseur 
£0 
MESSS1, Ÿ 
COUT{ 


“affiche (( OK ))+bipt 


CHESSE2-MESSBI 
PRHESSGI 
Bei 


e##é RE-VECTORISE LE RESET #4 


RSTVECT 


DA 
STA 
LDA 


€START ‘à partir de maintenant, 
SOFTEV ‘reset renverra au moniteur. 
&'START 


300 STA SOFTEV#1 


“remonte le curseur 


affiche ({ RESET OK )}+o1n 


£NESSGS-NESS62 


"RTN précédé d’un octet ? 


oui =) va le ranger 


i =} conserve L'adresse 


o 
E 
— 


. 
7 


30! EDR £5a5 
302 STA  SOFTEV+2 
343 JR UP 

304 LDY 20 

305 PRXESSS2 LDA MESSG2, Y 
306 JSR COUT 
307 ENY 

308 CPY 

309 BNE  PRMESSG2 
310 J% BELi 
311 

312 s#rttes STOCKAGE D’ OCTETS Ant 
313 

314 STORE  DEX 

315 BNE STORI 
316 LDA AA. 

317 STA (AL), Y 
318 JSTOR? 
319 STORt  LDA AR 
320 CP AIL 

321 BEQ STOR3 
322 STDR2 INC A& 
323 BNE STORS 
324 INC ASH 

325 STORS INC AL 
326 JP  CROM 
327 


328 He STOCKAGE DE TEXTE tt 


323 
330 STOREFIT LDY £0 
SSi STORYXTL EDX YSAV 


“initiaiise pointeur écriture 
récupère pointeur lecture 
;lit caractère suivant 
retour chariot ? 

oui =) fin 


non +) range ie caractère 
‘caractère suivant 


: (saute touJours) 


? 


‘affiche l’agresse 
‘ un espace, 


un octet, 


“recormence nuit fois 
‘Ceux espaces 


332 LDA INBUFF, X 
333 CP £$8D 
K«t) Hg STORXT2 
55 AND INVFL6 
336 STA (A2L),Ÿ 
337 INC YSAV 
338 NY 

359 BNE  STERTITI 
340 STORTXT2 RTS 

3éi 

3u2 setetee NEXA/ASCII DISPLOY #retts 
34 

uû HEXASC LDX £22 

345 STX REG 
6 HEO LDY £0 

347 JSR PRa{ 
348 HÆl JSR  PAGPACE 
349 LDA (AL), V 
350 JSR  PRBY'E 
351 INY 

3% CpY £8 

353 BNE #Æ! 

354 INC CH 

355 INC CH 

356 LDY 20 

357 HE2 UDA (AL), Y 
358 CMP 2520 


‘inverse 7 
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359 
368 
Si FES 
362 
363 
364 HE& 
365 
366 
367 Æ5 
368 
363 
370 
37: 
372 
375 
376 
375 HG 
376 HE7 
317 
378 
379 
339 
38! 
382 
383 
386 


639 HÉHEIHERHEIES 


60 
641 PAUSE 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 JSRPAU 
65 
656 XPAUSE 
657 
658 
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LDA 


BER 


STA 
INC 
DEC 
BNE 
JSR 
CAE 
BEG 
RTS 


LDA 
STA 
LDA 
STA 
LDA 
STA 
INY 
CPY 


STA 


£$Ce ‘oui =} nortal 
&$50 ‘clignotant ? 


£$80 ‘oui =} nornal 
€$AQ caractère de controle ? 


£&$co oui =} clignotant 
COUT ‘affiche ie caractère 
HE2 huit fois 


£7 ‘avance de nuit lcarry=!} 


HE6 ‘saute les adresses $20xx 
£$CF 2$CFFE € A € SCFFF © 


ét sou: =} A=$D600 


PAUSE AH HAHEREE 


AID}, Y sauve 3 octets 
INBUFF+253,YŸ dans le buffer 


JSRPAU,Ÿ _ :les remplace 

(AiL),Y  ;par "JSR XPAUSE” 

At -1,Y 

INBUFF+250, Ÿ sauve aussi |’ adresse 
& 

BAUSE 

£$6A ; (‘# ciignotante) 
PROMET 

XPAUSE 

SAVE Sauve les registres 
£2 

PCL même le compteur pgn. 
£0 


re 
Énassess it 
3 11h AaTÈr SZ 


ir rès6er ES 
tr 1544188 


663 STA PCH 

664 JSR SIPPSEO  :remet les 3 octets 
665 JSR CROUT 

666 £DX PEL 

667 LDY PCR 

668 JSR PRNTYX ‘affiche l’adresse 
669 JSR  RGDSPI “affiche les registres 
670 JNP MON ‘et retour au moniteur. 
671 

672 #4## SUPPRESSION DE LA PAUSE ent 

S7S 

674 SUPPAUSE LDA  PROMST 

675 CNP £$6A *y-at-i} une pause ? 
676 BNE SUPPSE2 non =} retour 

677 SUPPSEO LDA INBUFF+251 

678 STA RNDL 

619 LDA INBUFF+23€ 

680 STA RNDH 

681 iDY £€2 sremet {es trois octets 
682 SUPPSEI LDA INBUFF +253, Ÿ 

683 STA  {RN.),Y 

684 DEV 

685 BRL SUPPSE! 

686 LDA £’# 

687 STA PROMPF 

688 SUPPSE2 RTS 

689 

690 ####6# AFFICHAGE DE L’ ADRESSE #### 

691 

692 OBSERV JSA CROUT mouvelle ligne 

693 LDX INBUFF +251 

694 LDY INBUFF +252 

6% JMP  PRNTYX 

696 

697 He RFFICHAGE DES REGISTRES #4 

698 


699 REBDSP JSR CADET 
700 REDSPi LDA €£7 


mouvelie ligne 


70! STA CH 

702 LDA £&A& 

703 STA Ai. 

704 LDA £0 

705 STA ASH 

706 LDX €$FB 

707 RDSPI  JSR PRSPACE affiche un espace, 
708 LDA RTBL-$FB, X 

709 JSR COUT * “ le non du recistre 
710 JSR PREGURAL affiche "=", 

711 LOA ACC+S, X 

712 CPX £$FE #exception pour P 

713 BNE  RDSP2 

714 LDY £8 

715 MXTELS SL sun flag dans la carry 
716 EHA sauve le reste 

717 SCC NOTSET 

718 LDA FLGMA#-1,Y 

719 BNE DSPFLG 


720 NOTSET LDA &°," 


Fé1 DSFFLG JSR COÛT ‘affiche le flag 









45 


NYTELG 
RDSP3 
PRBYTE 


RDSP+ 
CROT 
"CZ198.VN° 


revient gar ‘return’ 


868 Heretrtrt ADDITION tirent 


Ai 
UPCLRSOR 
AiL 

AiH 
PRNTYX 
MON? 


sremonte je curseur 


863 sxtéHbrtEt SOLSTRACTION #4##Httax 


AiL 
A2L 
AL 
Aîn 
A2 
At 


EINADD 


875 #4 NOUVEAU SON DE CLOCUE re 


a$FF 
€$58 
£siB 


BE: 3 
SPKR 


BELi2 


revient AVEC X=Y=0 


893 +456 ALIGNEMENT DES RESULTATS ### 


723 DEV 
724 BE 
725 BEG 
726 RDSP2  JSR 
727 RDSPS  INX 
728 BUI 
723 JW 
TS0 FLENAN ASC 
847 

849 

850 ADDITN CC 
851 LA 
852 ADC 
853 STR 
654 LA 
85 ABC 
856 STA 
857 FINADD  JSR 
858 LEX 
859 &DY 
850 JSR 
861 JP 
862 

664 

865 SOUSTR SEL 
866 LDR 
867 SBC 
868 STA 
869 LDA 
870 SBC 
871 STA 
872 CLC 
873 BCC 
47à 

876 

877 BELL £DX 
878 Æiii LOA 
879 BEi2  LDY 
881 BNE 
882 BIT 
883 TAY 
Q84 BELLA  DEY 
885 BNc 
886 SBC 
887 BEA 
888 BIT 
889 DEX 
890 BNE 
891 ATS 
892 

85% 

895 LPCURSGR LDY 
896 STY 


YSAV 
CH 


‘positionne ie curseur 


897 JSR 
898 

899 OREQURL 98 
900 GOCUT JP 
901 

902 PRSSACE LDA 
90% BNE 
904 

905 PRCOMMA LA 
906 BNE 
907 

968 PRNTDOL :Df 
909 BKE 
910 

912 COSBRAC -DA 
912 BK 
913 

914 CPENBRAC LDA 
9i$ JSR 
916 LDA 
917 BE 
1090 

1091 ###es SAISIE 
1092 

1093 LWINKEY LDA 
1094 STA 
1095 LDA 
10% STA 
1097 LDA 
1098 STA 
1099 LDR 
1100 STA 
1101 LSR 
1102 RTS 
1103 


1104 NEKKEYIN PHA 
1105 AKO LDA 


1106 AND 
1107 CMP 
1108 BEG 
109 LDA 
1110 BIT 
1111 BPL 
1112 LDA 
His BI 
114 NK1 P£A 
dits PHA 
1116 NC STA 
1117 KG INC 
1118 BNE 
1119 INC 
1120 LOA 
121 AND 
1122 EMP 
1123 BCC 
1124 K4 BIT 
1125 BPL 
1126 PLA 
1127 STA 


£" 0) 
GOCOUT 


£"," 
GOCOUT 


£" $ R 
GOCOUT 


£g* 
GGCIUT 


guer 
CauT 
F'AELS 
GCCIUT 


‘à la ligre supérieure 


affiche un “=" 
‘ei revient 


DES MINUSCULES Het 


€NEMCOUT 
CS 

€} NERCOUT 
CSUH 
€NEMKEYIN 
KG 
£)NENKEVIN 
KSW 
HINFLAS 


(BASL),Ÿ 


modifie les enirées/scriies 


y“aguscules par défaut 

ssauve ancien Caractère 
regarde ce cui est affiché 
c'est le curseur ? 

mon =) æet-le ! 

‘curseur saécial en minuscuies 
s (saute tou jours} 

‘récupère l’ancien caractère 
‘affiche le caractère 


sincréæente le compteur 
ssaute si pas cérorté 


délai écoulé ? 

sou; =} écrange curseur/caractère 
‘touche enforcée ? 

non =) avance teapg 


‘restaure l'afficrage 
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1128 

1129 

i130 

1:31 

1132 

1:33 NEXTKEY 
1134 

1:35 CTRA 
1136 

1137 

1138 

1139 NDLOCK 
1140 

1141 

1142 

1143 TRYCODE 
1144 

1145 

1146 

1147 

1148 NOCHANBE 
1149 

1:50 

191 

1192 

1153 

154 

195 

1156 

1157 

1156 

1159 

1160 NOSHIFT 
1161 

1162 

1165 

1164 NEARRON 
1165 

1166 

1167 ENDKEY 
1168 

1169 

:170 RETURN 
1171 

1172 

1173 KTBLS 
1174 KTBL2 
1175 

1176 NEWCOUT 
1177 

1178 

1179 


BIT 
BpL 
LDA 
LSR 


KBD ‘it le clavier 

KBDSTRB ‘acquitte le clavier 

2533 ctri-S ? 

CTRLA 

SHFTLOCK oui =} 3as5e en #inuscules 
{BASL), Y 

NEWKEYIN 

€sal ctrl-R 7 

NOLECX 

SHFTLOCX oui =) passe en majuscules 


NEXTKEY 

SHFTLOCX son est en »inuscules ? 
NOSHIFT non =) saute 

RNDi oui =) sauve Ÿ 
£KTBL2-KTBLI 


NOCHANGE 

KTBLE,Ÿ ‘trouvée dans la table ? 
TRYCODE  nori =) oucle Y fois 
K7BL2, Y soui =) lit correspondance 


RNDL ‘récupère Ÿ 

£$8D +reteur chariot ? 
RETURN 

£2$98 sctrl-X ? 

RETURN 

£$9B ‘escape ? 

RETURN soul =} passe en #ajusc. 
SHIFT touche shift appuyée ? 


NOSH:FT ‘oui =) ne convertit pas 


£'a" 

NOSHIFT “ne convertit que les lettres 

2520 “convertit en minuscule 
‘sauvegarce le bon code 

2595 ‘c'est La fléche "-}’ 7 

NOARROK 

{BASL),YŸ oui =} lit l'écran 

£$E0 c'est une ninuscule ? 

ENDKEY 


HINF LAG ‘oui =} positionne le drapeau 
“revient avec le vrai code 
set retour 


SHFYLOCX  ‘0asse en majuscules 
‘et revient. 


8" ne va” 


LME ‘N°, Del) 


MINFLAG  :c’est une ainuscule ? 
NORMQÛT non =} affiche telle quelle 
MINFEAG soui =) affiche ia minuscule 
MINFLRG sraz du drapeau 
































Pom'’s s'adresse à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre aux autres. 
Nous vous prions de nous les faire parvenir afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal 
est de nous envoyer une disquette avec vos programmes et un article en traitement de texte (Applewiter I ou Il, ou tout 
fichier TEXT) sur disquette et si possible aussi imprimé, au cas où nous aurions du mal à le récupérer. N'oubliez pas 
d'indiquer votre adresse et votre numéro de téléphone ! 
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1180 
1181 NORMOUT 
1182 


STA INBUFF,X  ;range dans le buffer clavier 
SM COUTI 


1183 s#648 COPIE EN REMONTANT e+4#464 


1184 

1185 NOVEUP 
1186 

1187 

1188 

1189 

1190 

1191 

1192 

1593 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

$201 

1202 

1203 

1204 

1205 

1206 MOVEUP1 
1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

{215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1228 

1225 H+964H4 
1226 

1227 MESSG! 
1228 

1229 MESS62 
1230 

1231 MESSES 


STA MODE ne touche plus A1 

JSR LT :recopie A2 Gans R4& 

LDY YSAV récupère pointeur lecture 
JSR GETNUM ‘lit la destination 
DEY 

STY YSAV ‘sauve pointeur lecture 
SEC 

LDA At ‘calcule la longueur 
SgC AI sde a zone à déplacer 
STA AA 

LDA A6 

SC AH 

STA AH 

CLC 

LDA A& ‘en déduit la dernière 
ADC A2 ‘adresse écrasée 

STA A5 

LDA 93 * {on coseence jar la fin) 
ADC A2 

STA AH 

£DY #0 


LDA (A4L),Y copie un octet 


DŒC AK ‘décrémente pointeur source 


DEC AH * et pointeur destination 


BNE #4 

DEC ASK 

LDA AL stest ce fir ce céslacement 
CH Ai 

LDA 6H 

SEC AIH 

BES MOVELPI “boucle si 44 )= A! 


MESSAGES HF 


INV * AMPERSAAD &K " 
KEX 8) 

INV ‘ RESET OK * 
KEX BD 

HEX FF 





EE _“ 
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ER TAS TEE ERA ER NTE TOUT ES ET 





MONITEUR : 
Récapitulation 


#8D00,951E 


8D00- AG E2 8D FO 03 A9 91 8D 
8D08- F1 03 20 93 FE 20 89 FE 
8D10- 20 84 FE 20 2F FB D8 29 
8Di8- 79 92 24 33 36 O4 A9 EA 
8D20- 70 02 A9 2À 85 33 20 8E 
8D28- FD A5 33 20 ED FD 20 
8D30- FD C9 DE DO 0C À 40 DO 
8D38- 02 C6 41 C6 40 C6 3C A9 
8D40- RO C9 AO DO 19 A6 40 A5 
8D48- 41 20 41 F9 88 A9 AB 20 
8DS0- ED FD Bt 40 20 DA FD A9 
8D58- A9 20 ED F3 A9 BA A2 0! 
8D60- 20 78 FD 20 C7 FF CA 20 
8D68- A7 FF 84 34 AO 26 88 
8D70- A5 D9 AA 8D DO F8 20 JA 
8D78- 8D A4 34 4° 67 8D C9 AB 
8D80- DO 03 4C 4F 92 C9 AD DO 
8D88- 05 4C 69 92 C3 BA DO CS 
8D30- 4C 60 8E 20 00 FE 68 68 
8DS8- DO 8C 98 OA AB E9 DO &D 
8DAO- 48 B9 Di 8D 48 AS 3! 4C 
8DA8- C7 FF BB BC BE C4 C6 A5 
8DR5- B2 99 SA 9B 9D JE 9F AG 
8DB8- A6 A7 AB 93 9% 95 9% 57 
8DCO- 00 01 02 04 05 06 07 08 
8DC8- E9 ERA EB EC ED EF FO Fi 
8DDO- FE ÀF FE 92 9 28 FE & 
8DD8- 8D 7D FE 96 FE C9 FE 05 
8DEQ- 93 4A 8F 46 8F C6 8E 3) 
8DEG= 0 1B FE I7-FE NP FE 47 
8DFO- BE =3 FE 7 82 7A FE 1F 
8DF8- 90 2E 94 B7 FE BS @E 8F 
8E00- FE 77° 94 02 FE SD FE 2B 
8E08- FE 85 91 :F 90 C2 03 CF 
BEI0= FE FC SIP SD ETS PE 
8E18- FE CC 91 00 A9 4C 8D F5 
8E20- 03 A9 00 8D -6 03 A9 &D 
8E28- 8D F7 03 20 :A FC RO 00 
8c50- B9 04 95 20 FO FD Ca CO 
8E38- OF 09 ©5 4C 79 92 AS 00 
8E40- 8D F2 03 À9 8D 8D 73 05 
8E48- 49 A5 8D F4 03 20 IA FC 
8E50- A0 00 B9 !3 95 20 CD FD 
8E58- C8 CO OB DO F5 4C 79 92 


8E60- CA DO 07 45 3E 91 40 4C 
BE68- 70 8E A5 40 C5 SC FO % 
8£70- E6 40 DO 02 E6 41 E6 3C 
8E78- 4C 96 8D AO 00 A6 34 BD 
8E80- 00 02 C9 8D FO 09 25 32 
8E88- 91 SE E6 34 C8 DO EE 60 
8E90- A2 !6 86 46 A0 00 20 92 
8E98- FD 20 A0 92 B1 3C 20 DA 
8£40- FD C4 CO 08 DO F3 E6 24 
8EA8- E6 24 A0 00 Bi 3C C9 20 
8EBO- B0 02 09 CO C9 60 BO 02 
8EBB- 03 80 C3 A0 BO 02 49 C0 
8ECO- 20 ED FD C4 CO 08 DO E4 
8EC8- A5 3C 69 07 85 3C 90 02 
8EDO- E6 5D A5 3D C9 CO FO F8 
8ED8- C3 CF DO OC AS 3C C9 F8 
8EEO- 90 06 A9 00 85 3C EG SD 
S£EB- CE 46 DO A8 20 60 FD CS 
8EFO- A0 FO 9D 60 85 31 84 4A 
8EF8- 20 20 FE A4 34 20 A7 FF 
8F00- 84 54 AG 4A 48 AS & 93 
8F08- 00 02 E6 4A 68 C3 99 FO 
8F10- ER 48 ÀS 42 85 SE AS 43 
8F18- 85 3F 20 8E FD A0 00 Bi 
8F20- 3C D9 00 02 DO OF CB C4 
8F28- 4A DO F4 AG 3C A6 32 20 
8F30- 40 F9 20 A4 92 20 RO 8F 
8F38- 90 E3 68 C3 AF FO 02 CE 
8F40- 34 20 C7 FF 4C 8E FD 84 
8F48- 4A R4 34 B9 00 02 ES BD 
8r50- DO 02 A9 CO E6 34 A4 4A 
8F58- 48 29 3F 99 00 02 E6 4A 
8F60- 68 CS A2 0 04 C9 A0 B0 
8F68- EO 20 8E FD C6 4A AO 00 
8F70- B9 00 02 FO 07 B1 3C C9 
85187:E0 90:02:29 1F 29 37:29 
8F80- 00 02 DO © C8 C4 4A DO 
8F88- E7 À6 3C A4 3D 20 40 F9 
8F90- 20 A4 92 20 AO 8F 90 D6 
8F98- C6 34 20 C7 FF 4C 8E FD 
8FAO- AS SC C5 Æ AS 5D ES 3 
8FA8B- 08 EG 3C DO 02 E6 3D À 
8FB0- 3D C9 CO FO F8 C9 CF DO 
8FB8- 06 AS JC C9 FF FO EN 28 
8FCO- 60 20 94 92 20 42 FC 20 
8FC8- 20 FE 20 ED &F A9 #F © 
8FDO- 43 BO 39 20 48 F9 20 B0 
8FD8- 92 A9 00 38 ES 42 85 Æ 
8FEO- A9 00 ES 43 85 3F 20 cD 
8FE8- 8F 20 AC 92 60 A2 04 86 
SFFO- &F A9 BO 85 4E AS 3E DD 


BATTERIE 


8FF8- 25 90 A5 3F FD 2A 99 90 
3006- 0D 85 3F A5 3E FD 25 90 
9008- 45 3E EG 4E DO E7 AS & 
9%10- E8 CA FO OA C3 80 FO 02 
9018- 85 4F 24 4F 10 03 20 ED 
9020- FD CA 10 CD 60 0: OR 64 
9028- E8 10 00 00 00 05 27 43 
9030- 00 85 3C 85 3D A4 54 88 
9038- 10 0F 83 00 02 38 E9 80 
9040- 30 OA C9 OA BO 06 99 00 
9048- 02 88 10 EE CB 84 SE &4 
9050- 4A A6 SE B3 00 02 50 :F 
9058- 20 BE 90 65 3C AA A9 00 
3060- 65 5D A8 20 BE % 20 BE 
9068- 90 8A 65 3C 85 3C 98 65 
9070- 3D 85 3D E6 3E 9 DA C6 
9078- 34 20 94 92 20 42 FC E6 
9080- 34 20 AB 92 AG 3C A4 SD 
9088- 20 40 F9 A3 7F C5 3D 90 
9090- 2C 20 48 =9 20 B0 92 4 
9098- 4A B3 00 02 30 08 03 B0 
90AQ- 20 ED CD CA DO F3 20 ED 
SOAB- FD 20 A8 92 A9 00 38 ES 
30B0- 3C AA A9 00 ES 3D A8 20 
SOB8- 40 F9 20 AC 92 60 6 
90C0- 26 3D 60 B1 SC 99 FD 02 
90C8- B9 DD 90 91 3C B9 3B 00 
90D0- 99 FA 02 C8 CO 03 DO EB 
90D8- À9 6À 85 33 60 20 EO 3 
9070- 20 4A FF 68 38 €9 02 85 
90E8- SA 68 E9 00 85 3B 20 07 
90FO0- 91 20 & FD À6 SA A B 
90F8- 20 40 F9 20 2F 91 4C 16 
9100- 8D À5 33 C9 6A DO !à AD 
9:08- FB 02 85 4E AD FC 02 85 
9110- 4F AO 02 BS FD 02 91 4 
9:18- 88 :0 F8 A9 2A 85 35 60 
9120- 20 8&E FD A FB 02 AC FC 
9:28- 02 4C 49 F9 20 &E FD 83 
9130- 07 85 24 A9 45 85 40 A9 
9:38- 00 85 41 A2 FB 20 AO 92 
9140- BD 1E FA 20 ED FD 20 9B 

148- 92 BS 4A EO FE DO 16 F@ 
9150- 0B OA 48 90 05 ES 6D 91 
9:58- DO 02 A9 AE 20 ED FD 68 
9160- 88 DO £E FO 03 20 DA FD 
9168- E8 30 D2 4C 8E FD CS 
9170- C9 C4 C2 AE D6 CE A9 01 
9:78- 45 31 20 9C 91 A2 00 20 
9180- iE FB 98 49 FF C3 08 90 
9188- 03 20 A8 FC AD 6i CO 59 


Pom's n°8 


9130- FB AD 00 CO 10 EO 8D 10 
9198- CO 4C 16 8D 20 75 FE 20 
9180- DO F8 68 85 2C 68 85 2D 
3i8- A2 08 BD 46 92 95 5C CA 
91B0- DO F8 Ai 34 FO 2C A4 2F 
9188- C9 20 FO 43 C3 60 FO F 
9iC0- C9 4C FO 46 C9 6C FO 43 
9iC8- C3 40 FO 3F 29 ïF 49 14 
9D0- C3 04 FO 02 Bi 3A 33 SC 
91D8- 00 68 10 F8 20 3F FF 4C 
91E0- 3C 00 20 82 FB 20 2? 31 
91E8- 4C 16 8D 18 68 85 48 6B 
91F0- 85 38 68 85 3B A5 2F 20 
AF8- 56 F9 84 3B 18 90 14 18 
3200- 20 54 F9 AA 98 48 8A 48 
9208- 60 02 18 Bi 3A AA 88 Bi 
9210- 34 86 3B 85 3A BÔ F3 AS 
3218- 2D 48 A5 2C 48 20 2C 91 
93220- RS 31 DO 0 AD 80 CO 10 
3æ8- FB 2C i0 CO C3 AO DO 02 
3230- C6 34 60 18 AO 01 B1 3A 
9238- 20 56 F9 85 5A 38 38 BO 
3240- B2 20 48 FF 38 RO AE EA 
9248- ER 4C 4i 92 4C 33 32 18 
3250- A5 3C 65 3E 85 3C À5 3D 
9258- 65 3F 85 5D 20 94 92 À 
3260- 3C A4 3D 20 40 53 4C 1A 
9268- 8D 38 AS 3C ES 3E 85 3C 
9270- À5 3D ES 5F 85 3D 18 30 
9278- E3 A2 FF A9 58 A0 18 68 
3280- DO FD 2E 30 CO À8 88 DO 
9288- FD E9 0i FO EE 2C 30 C9 
3230- CA DO EA 68 A4 34 84 24 
9298- 20 iA FC A3 BG 4C ED F0 
3280- A3 AO DO F9 A9 AC DO F5 
9288- 83 A4 DG F1 A9 DD D D 
92B0- A9 DB 20 ED 79 A3 AD DO 
9288- E4 E9 8i 4A DO i4 A4 


32C0- AG 3 DO 0! 88 CA 94 18 
92C8- ES SA 85 3E 0 01 C8 38 
32D0- ES 3B DO 6B A4 2F 83 3D 
32D8- 00 3i 54 88 10 F8 20 IA 
32E0- FC 20 1A FC 20 D0 F8 20 
92E8- 53 F3 84 5B 85 SA 4C 6€ 
32F0- 93 20 9A 8D R4 34 20 A7 
92F8- FF 64 34 AO 1F 88 30 4B 
9300- D3 AA 8D DO F8 C9 C6 DO 
9508- EB A5 31 AO 00 C6 54 20 
9310- OO FE 4C 4€ 93 A5 3D 20 
9318- 8E F8 AA BD 00 FA £5 42 
9520- DO 13 BD CO F9 C5 43 DO 
9328- OC A5 44 A4 2E CO D FO 
9330- 88 C5 2E FO 9F C6 3D DO 
9338- DC E6 44 C6 35 F0 DE A4 
9540- 34 9B AA 20 4A F9 A3 LE 
9348- 20 ED FD 20 79 92 24 3 
9350- A3 21 50 02 09 40 85 35 
9358- 20 67 F3 20 C7 FF AD @ 
9360- 02 C3 fA DO 03 4C 16 8D 
9368- C9 AC FO ‘3 C& C3 A4 FO 
9370- 85 88 20 27 -F C9 93 DO 
9378- C8 8A F9 C5 20 78 FE AS 
9580- 03 85 32 20 FA 93 0A 3 
9388- B£ C9 22 90 86 OA OR F2 
9390- 04 09.26 42 26 43 CA :0 
9398- F8 C6 3D FO F4 10 £4 62 
93f0- C5 20 “A 93 84 34 D Bi 
93k5- €9 30 13 20 FA 93 DD BA 
383%- °3 FQ OD RD BA F9 FO 07 
9588- C3 F4 FO OS A4 34 18 BB 
9320- 26 44 0 03 DO OD 20 A7 
93C8- FF A5 3F FO Of EB 86 35 
93D0- A2 03 88 86 3D CA 10 C3 
3328- A5 44 0A CR 05 35 C9 20 
93:9- 80 Ô$ A6 35 <0 02 09 80 
SSE8- 85 44 84 34 B9 00 02 C3 


95-0- BE F0 04 C9 8D 3 80 4C 
$3-8- 15 93 B9 00 02 C8 C3 A0 
9400- F0 F8 60 A9 A7 85 36 A7 
9408- 94 85 37 A7 17 85 38 À9 
94:0- 94 85 39 4E FE 07 60 48 
94:8- Bi 28 29 Dr C9 BF FO OB 
3429- A9 DF 2C 7£ 07 10 06 A9 
9428- FE 30 02 68 48 91 28 E6 
3430- 6€ 98 OA E6 4F RS 4F 29 
9438- 3F ©3 01 90 DB 2C 00 C0 
3440- 10 ED 68 91 28 AD 00 CO 
9448- 2C 10 CO C9 93 DO 08 8D 
9450- 7€ 07 B1 28 4C 17 94 C9 
9458- 81 20 05 4E 7E 07 i0 F2 
9460- 2C 7E 07 10 28 84 4E RO 
3686B- 03 88 30 08 D3 A1 94 DO 
9470- F8 B9 A4 94 A4 &E C3 BD 
9478- FO 23 C9 98 FO iF C3 3B 
9480- FO 18 2C 63 CO ‘0 06 29 
9488- CO 90 02 09 20 48 C9 SS 
94%- 3 02 B! 28 C3 £O 99 03 
9498- 83 F2 07 68 60 4E 7E 07 
9440- 60 DD DE SC EG CE DO 2C 
34RB- F2 07 :0 09 AD FE 07 4E 
JaBt- <£ 07 9D QG 02 4C FO FD 
94B8- 85 3: 20 20 FE A4 34 26 
94C0- 47 -F 88 8 34 38 ÀS 42 
94Û8- ES 32 85 40 AS 43 ES 3D 
94D0- 85 41 :8 A% 40 65 3E 85 
9428- 40 À5 41 65 3F 85 4i RO 
34:0- 06 81 42 91 40 C6 42 F5 
94:8- 42 C9 FE DO 02 C6 43 Cs 
94<0- 40 A5 40 C9 FF DO 02 C6 
94F8- 4 AS 42 CS SC AS 43 ES 
3:00- 3D BO DE 60 20 01 OD i0 
9508- 05 22 :3 01 0E 04 20 
9510- 98 20 88 20 12 05 13 05 
9518- 14 20 OF 0B 20 8D FF 





Abonnez-vous à Pom’s 


La vie de votre revue dépend de son nombre d'abonnés. Plus vous êtes nombreux. plus nous pouvons vous 
rendre service, par l'augmentation correspondante de nos moyens comme par le plus erand nombre de contribu- 
tions que nous recevrons. forcément de vous. Nous avons volontairement choisi une politique de disquettes à bon 
marché; ainsi, lorsque vous vous abonnez avec disquettes. chaque disquette vous revient à moins de 45 francs 
TTC, port compris ! Un abonnement à quatre numéros coûte aujourd'hui 295 francs. Cela ne sera-t-il pas large- 
ment amort si une seule des 200 pages de texte que vous trouverez en quatre numéros vous résoud ce pro- 
blème sur lequel vous séchez {on à vite fait de perdre deux ou trois jours sur un preblèmel) ? Dans de nombreux 
numéros. nous vous avons offert des programmes comparables à ceux qui sont vendus de 250 à 500 francs dans 


les boutiques. Profitez-en ! 
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TETE peer 








ÉEERRRIMRRERREELES LEE OERERNRENNSENIE 


HR EE 


49 


EE 


Vous avez un Apple ou 
un ordinateur personnel IBM. 

Beaucoup de logiciels 
sont utiles. 

Celui-ci est indispensable. 


PFS Gestion de Fichiers : 


ePermet en un minimum de manipulations et 
de temps de créer votre Fichier (clients, 
fournisseurs, stock, bibliothèque, etc.). 


eTrès nombreuses possibilités de recherche: 
nombreux critères de sélection applicables 


à plusieurs zones du Fichier en même temps. 


eNombreuses possibilités d'édition (fiches, éti- 


quettes, mailings, etc.). 
e Autres fonctions: modification du dessin du 


Fichier, copie totale ou partielle du Fichier, 
ajout de nouvelles fiches, suppression, re- 
cherche et mise à jour, recherche et édition. 
Best-seller aux États-Unis, plus de 150.000 
programmes vendus. | 
PFS Gestion de Fichiers peut être complété 
par PFS Report (programme de tri et d'édi- 
tion de listes et calculs) et PFS Graph {pro- 
gramme d'édition sous forme de graphi- 
ques, histogrammes, parts de gêteau, etc.). 





Bon de commande 


POM'S 


A retourner à Médipost 45212 Montargis Cedex - Tél. (38) 85 54 73 


Je commande PFS Fichier [J PRIX PAR 


ApplelloullE 


APPLE lil ou IBM PC 





PFS Report [] 


PES Graph CO] PROGRAMME 


1095F + TVA = 1298,67F 


1475F + TVA = 1749,35F 


Fonctionnant pour Apple Il CO, Apple Il EC, Apple lil [1 et IBM PC [1 {sauf PFS Graph} soit un total de 
Règlement à la commande: Chèque bancaire [J Chèque postal [ à l'ordre de Médipost 


Nom LE E- ______ Société 





Adresse —_—_ É 








Date 


Une facture acquittée sera jointe à votre livraison. 


ASE 
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Signature 





Pom's n° 8 


Cet article est complémentaire de 
celui publié dans le Pom'’s 4 Il pré- 
sente une autre façon de gérer des 
fichiers selon le principe de la ‘table 
de référence” (ou table d'index) et 
des fichiers de données à Accès Di- 
rect. 


Ainsi que vous pourrez le constater 
en examinant le programme, ou en 
l'utilisant, les procédures de ‘’menu”, 
de saisie et de contrôle des données 
sont réduites à leur plus simple ex- 
pression : nous ne nous intéresserons 
ii qu'aux aspects spécifiques de la 
gestion des fichiers. 


Principes généraux 


Les données sont stockées dans un 
fichier à accès direct (FIC). Chaque 
enregistrement de ce fichier corres- 
pond à un ’article” et chaque article 
est repéré par une clé unique et stric- 
tement personnelle (nom d’un client, 
numéro de code d’un produit...) 
Dans notre exemple, la clé se 
compose de 6 caractères alphanumé- 
riques quelconques. 

Pour retrouver un enregistrement à 
partir de sa clé, il faut constituer une 
table d'index qui donne, en face de 
chaque clé, l'adresse de l’enregistre- 
ment correspondant dans FIC (aug- 
mentée de 1000 dans notre exem- 
ple). Ainsi, un élément de la table est 
une variable V$, avec : 

LEFT$(V$,6) valeur de la clé et 
VALIMID$(VÉ,7,4))-1000 adresse de 
l'enregistrement. 


Les éléments de cette table doivent 
être classés dans l'ordre alphanumé- 
rque. Pour en retrouver un dans la 
liste, on utilise une procédure de re- 
cherche dite dichotomique. 


La question qui se pose maintenant 
est de savoir comment sera stockée 
cette table et où s’effectueront les 
opérations de recherche. 

Dans le Pom's 4, nous avons abordé 
la solution consistant à stocker la 
table dans un fichier séquentiel. Ce 
fichier est lu intégralement en mé- 
moire centrale au début des traite- 
ment et recopié à la fin Toutes les 
opérations de recherche s'effectuent 
en mémoire. 

Cette solution perinet des recherches 
et une mise à jour de la table très 
rapides, en cas d'ajout ou de sup- 
pression. Par contre, elle impose de 
ire la table intégralement chaque fois 
qu'on lance les traitements et surtout, 
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Notions de base : 
gestion de fichiers 


si les clés sont longues et nombreu- 
ses, elle pose des problèmes de satu- 
ration de la mémoire centrale. 


L’alternative envisagée ici consiste à 
stocker la table d’index dans un fi- 
chier à accès direct (TAB). Ceci per- 
met d'effectuer les recherches sur 
disquette (toujours selon les principes 
de la recherche dichotomique) et de 
libérer une capacité mémoire non 
négligeable. 

Evidemment, la recherche d’une clé 
donnée est légèrement plus lente, 
mais c’est surtout pour la mise à jour 
de la table que le temps de traite- 
ment risque de subir une dégradation 
sensible. Pour ajouter une clé dans la 
liste, par exemple, ÿ faut ‘’reculer” 





toutes celles qui ln sont supérieures; 
si elles sont nombreuses, et compte 
tenu des performances du DOS, on 
pourrait parfois attendre bien plus 
d’une minute avant de passer à l’arti- 
cle suivant. 


Une autre solution consiste à avoir 
une table d'index qui indique, pour 
chaque article, la position du précé- 
dent et celle du suivant dans l’ordre 
alphabétique. La recherche d’un arti- 
cle donné est alors plus longue, mais 
la mise à jour plus rapide. En effet, 
l'insertion d’un article, par exemple, 
ne nécessite la modification que de 
l'index des articles entre lesquels le 
nouvel article doit s’insérer. 





Gérard Michel 


Pour réduire la portée de ce pro- 
blème, nous utilisons ici une mini- 
table de référence en mémoire (pour 
les créations notamment) et un déca- 
lage des mises à jour sur disquette 
par rapport aux traitements courants. 


Variables Principales 


Les variables principales sont listées 
dans l’ordre de leur apparition dans 
le programme. 


Ki, K2, A$ : indices et variable cou- 
rants 

NC: nombre d'éléments dans la 
table “tampon” en mémoire cen- 
trale. 


(NARURREREENTTER TE LITE | 








S$ : clé, complétée par des blancs si 
nécessaire. 

NT: nombre d'élément dans la 
table sur disquette. 

N$ : tableau des clés en mémoire. 

PL% : liste des adresses libres dans 
le fichier FIC (libérées par une an- 
nulation). Cette liste est stockée 
dans un fichier séquentiel. 

TD: nombre de clés annulées sur 
disquette au cours d’une phase de 
traitement. 

NL: nombre d'adresses libres dans 
FIC. 


NZ: nombre d'éléments ‘vivants” 
dans la table sur disquette. 
ZR: indique la position virtuelle 


IH S EEE 


rise 


» 
Fe 


HE 


| 


51 


d'une nouvelle clé dans la table 
sur disquette. 

À : utilisé pour la re-création de clés 
annulées. 


Analyse du programme 


Dans tous les cas, la clé entrée au 
clavier est tout d'abord recherchée 
sur la disquette. Si elle existe, on si- 
gnale une éventuelle annulation an- 
térieure (ligne 350). Si elle n'existe 
pas, on la cherche alors en mémoire, 
après avoir noté sa position virtuelle 
sur disquette (ligne 360). 


1) Création d’un article {homony- 
mes interdits). La limite de 50 impo- 
sée au nombre de créations sans 
mise à jour sur disquette dépend en 
fait, bien sûr, du niveau de saturation 
de la mémoire (ligne 390). 

Le principe consiste à faire la mise à 
jour uniquement sur la table en mé- 
moire (à la restriction ci-dessus près) 
pendant le traitement lui-même. Les 
créations peuvent ainsi s’enchaîner 
sans délai d'attente sensible entre 
chacune d'elles (lignes 410 et 420). 
S'il s'agit de la re-création d’une clé 
préalablement annulée, celle-ci est 
simplement  réécrite intégralement 
(clé plus adresse de l'article) à sa 
place dans la table sur disquette 
(ligne 405). Aucune autre mise à jour 
n'est nécessaire pour ce type de 
création, ni sur disquette, ni en mé- 
moire. 





Les données sont ensuite enregis- 
trées à l'adresse R dans FIC. 


2) Modification et consultation 
d’un article. Ces deux opérations 
ne posent guère de problèmes, dans 
la mesure où l’on sait déjà comment 
retrouver la clé et l’article qui lu cor- 
respond. 


3) Annulation. La limite de 50 im- 
posée au nombre d'adresses libres 
gardées en mémoire appelle la 
même remarque que pour les créa- 
tions. 

L'annulation d’une clé qui se trouve 
dans la table tampon (clé créée au 
cours de la même exécution du pro- 
gramme) est prise directement en 
compte (ligne 520). Cette clé ne sera 
donc pas recopiée sur disquette en 
fin de traitement. 

Si la clé se trouve dans la table per- 
manente, on remplace simplement 
l'adresse de l'article correspondant 
par À, sans procéder au décalage de 
la table (ligne 510). 


4) Fin de traitement 

Nous abordons maintenant le pro- 
blème principal, du moins en ce qui 
concerne le temps de traitement, à 
savoir la mise à jour de la table sur 
disquette. 

S'il s’agit de la toute première phase 
de création, cependant, il suffit de re- 
copier directement la table tampon 
dans TAB (ligne 212). 


Dans le cas contraire, il faut insérer 
les nouvelles clés dans la liste d’in- 
dex, en respectant l’ordre alphanu- 
mérique. Nous vous proposons, à 
titre d'exemple, deux solutions possi- 
bles : 

- La première consiste à décaler les 
enregistrements du fichier TAB lors- 
que cela est nécessaire, exactement 
comme on le faisait en mémoire cen- 
trale (lignes 215 et 220 du pro- 
gramme de base). 

- La seconde utilise un fichier inter- 
médiarre (TB2}, constitué progressi- 
vement par la copie séquentielle des 
éléments de TAB entre lesquels vien- 
nent s'intercaler, le cas échéant, les 
clés de la table tampon. 

Pour une même dimension du fichier 
TAB, le choix entre ces deux solu- 
tions dépend surtout du nombre de 
clés à insérer; la première est plus ra- 
pide si ce nombre est faible (sauf si 
elles viennent majoritairement en tête 
de liste), et inversement pour la se- 
conde. Il est d’ailleurs possible d’utili- 
ser les deux dans le même pro- 
gramme et de choisir en fonction 
d’un test sur la valeur de NC. 


En ce qui concerne les annulations, 
le traitement assure ‘?écrasement” 
des clés marquées d'un A (ligne 
280). Cette opération peut être réali- 
sée à l'issue des annulations elles- 
mêmes, ou de façon indépendante 
quand aucun travail plus urgent ne 
l'interdit. 


51 K = INT ((CK1 + K2) / 2): PRINT RTS:K 
Programme FICHIERS : INPUT NS:AS = LEFTS (NS,6): IF 
5 GOTO 100 een 
SA peu 52 IF AE K2:>5 K1 + 1 THEN K2 = 
39 REM nnnnannnnnnnnnnnnannanna . + 
RCE ROIE DICO 53 IF S$ < A$ THEN PRINT RUS: RETURN 
. ER MÉROGGE : S4 IF K2 > K1 + 1 THEN K1 = K: GOTO 51 
PRE D SRE RE ARS 55 K = K + 1: PRINT RTS:K2: INPUT NS: IF 
S$ > LEFTS (NS,6) THEN K = K2 « 
40 K1 = 1:K2 = NC: IF NC = © THEN K = 1: 1 
RETURN 56 IF S$ = LEFTS (NS,6) THEN Ki = -1 
41 K = INT ((K1 + K2) / 2):AS = LEFTS :K = K2: PRINT RUS: RETURN 
CNSCK),6): IF SS = AS THEN Ki = 7 PRINT RUS: RETURN 
= 1: RETURN 38 REX 
42 “IF VS: AS" ANDIK2 > RD +0 THEN K2 = ll" RENE R nr anses 
FU Soro ds * DEBUT PROGRAMME * 
43 IF ss < AS THEN RETURN LÉRRLLLELLELLLLLLLLLLLZ) 
44 IF K2 > K1 + 1 THEN Ki = K: GOTO 41 
45 K = K + 1: IF SS > LEFTS (NS(K2),6) 
THEN K = K2 + 1 100 BLS = ‘ ‘“*:D$ = CHRS (4):D1S = 
46 IF S$ = LEFTS (NS(K2),6) THEN Ki = CHRS (13) + DS:OTS = D1S + “OPE 
- 1:K = K2: RETURN NTAB,L11":RTS = DS + "READTAB,R“: 
47 RETURN UTS = DS + “WRITETAB,R":0FS = D1s 
48 REM + "“OPENFIC,L100":RFS = DS + “REA 
49 REM nennnnnnnnnnnnnnnnnen DFIC,R“:WFS = DS + “WRITEFIC,R* 
* RECHERCHE DICHO. # 105 OLS = D1$ + “OPENPL":RLS = D$ + “REA 
* SUR DISQUETTE * DPL"“:WLS = DS + "WRITEPL":CLS = D 
LÉELRLLELELELELLELRELLLELLELEX EX] S + "CLOSE" :RUS = DS + "“"PR£C' 
50 Ki = 1:K2 = NT: IF NT = O THEN K = 1: | 110 DIM NS(S50),PL%x(50) 
RETURN 118 REX 
ASS ENTER EEREEEER 2 


52 Pom's n° 8 


i19 


REM sannnnnnnannanannnnxmx 
# OUVERTURE DES R 
# FICHIERS # 


LRRRRRNNRRRRRRRHHRAN 


120 Z%x = 1:NC = O:TD = O:2 = O: PRINT OT 
S: PRINT RTS:0: INPUT NZ,NT 
130 Z%x - O0: IF Z = 5 THEN NZ = O:NT = O 
140 Z% = 2:2 = O: PRINT OLS: PRINT RLS: 
INPUT NL 
150 Z%x = O: IF Z = 5 THEN NL = O: GOTO 1 
70 
160 FOR I = 1 TO NL: INPUT PL%x(I): NEXT 
170 PRINT DS"CLOSEPL": PRINT OFS$: PRINT 
RUS:Z = O 
180 PRINT : PRINT : PRINT ‘“1-CRE. 2-M0 
D. 3-CONS. 4-ANN. S-MAJ ANN. 
6-FIN";: GET Z22S: PRINT : PRINT : 
22% = VAL (228): IF Z22%x < 1 OR Z 
2% > 6 THEN 180 
190 IF 22% < 6 THEN 340 
198 REM 
199 REM ranannnnnnnnnnnnnnnn 
# FIN TRAITEMENT *# 
LELELLELLELELLLELLELELLEEX)] 
200 IF NC = O THEN 230 
205 GOSUB 210: PRINT RUS: GOTO 230 
208 REX 
2093 REM nanannnnnnnnnnnnnnnn 
#* MISE A JOUR DES # 
« CREATIONS e 
MMM 0 D 0 06 0e 06 06 2e 0 6 D Ne M 
210 IF NT > O THEN 215 
212 PRINT DS"CI.OSETAB‘": PRINT OTS: FOR 
I = 1 TO NC:2$ = LEFTS (NS(1I),10 
2: PRINT WTS;I: PRINT ZS:NZ = NZ 
+ 1:NT = NT + 1: NEXT : RETURN 
2135 FOR 1 = 1 TO NC:K = VAL ( MIDS (NS 
CTI ELLE T = LE TE KES SE NT CTH 
EN FOR L = NT TO K STEP - 1: PR 
INT RTS:L: INPUT Z2$: PRINT WTS:L 
+ 1: PRINT Z2S: NEXT 
220 NZ = NZ + 1:28 = LEFTS (NS(CI1),10):N 
T = NT + 1: PRINT WTS:;:K: PRINT 25 
: NEXT I: RETURN 
230 IF TD = O THEN 310 
240 INPUT ‘OK POUR M.A.J. ANNULATIONS " 
:23: IF 285 < > "OC" AND 28 < > 
N'' THEN 240 
250 IF Z$ = “N‘' THEN NZ = NZ - TD: GOTO 
310 
258 REX 
259 REM nananannnnnnnnnnnnnan 
# MISE À JOUR DES #* 
a ANNULATIONS " 
nannnnnnnnnnnnnnnnne 
260 R = 1: IF NT = O OR NZ = NT + TD THE 
N 310 
270 PRINT RTS:R: INPUT ZS: IF MIDS (25 
»7) < > ‘"A‘* THEN 290 
280 NT = NT - 1: IF R < = NT THEN FOR 
L = R TO NT: PRINT RTS:L + 1: INP 
UT ZS: PRINT WTS:L: PRINT ZS: NEX 
T 
230 R = R + 1: IF R < = NT THEN 270 
300 NZ = NT 
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MERS 


310 


340 
348 
349 


350 


360 
370 
378 
379 


380 


390 


400 


405 


410 


420 


425 


430 


438 
439 


440 
450 


458 
459 


460 


468 
469 


470 


PRINT WTS;:0: PRINT NZ: PRINT NT: PR 
INT CLS: PRINT OLS: PRINT WLS: PR 
INT NL: FOR I = 1 TO NL: PRINT PL 
%*CID: NEXT : PRINT CLS: END 

IF 22% = 5 THEN 260 

REXM 

REM nannnnnnnnnnnnnnnnnna 

#* RECHERCHE CLE " 


LELRLLLLLLLLELLLLLLLE) 


= LEFTS (SS + BLS,6): 
IF Ki = - 1 AND MIDS 
CNS,7) ‘A THEN PRINT ‘ANNULE" 
K: ON ZZ%x GOTO 400,180,180,1 


O: INPUT “VALEUR DE LA CL 
s 


80 
IF K1 > O THEN 2K = K: GOSUB 40 
ON Z2Z%x GOTO 380,430,430,430 
REM 
REM nnnannnnnnnnnnnnnnann 
Li) CREATION LI) 


LELLLLLLLLLL EL LLLLLLE:) 


IF K1 = - 1 THEN 
JA*: GOTO 180 
IF NC = SO THEN PRINT 

NS.., PATIENCE": 
PRINT RUS 
FOR I = 1 TO S: INPUT “VARIABLE/DON 
NEE “;ZYS(CI): NEXT :R = NZ + NC + 
1: IF NL > O THEN R = PL%(NL):NL 
= NL - 1 
IF A > O THEN NS = 
+ R): 
O0 425 
IF K < = 
STEP - 


PRINT “EXISTE DE 


“MAJ CREATIO 
GOSUB 210:NC = O: 


SS + STRS «(1000 
PRINT WTS;A: PRINT NS: GOT 


NC TO K 
NEXT 


NC THEN FOR L = 

1:NSCL + 1) = NS(L): 

NC = NC + 1:NS(K}) = SS + 

+ RD + STRS (CZK) 

PRINT WES:R: PRINT SS: 
S: PRINT ZYS(I): NEXT : 
S: GOTO 180 

IF K1 > O THEN PRINT 
‘‘: GOTO 180 

REX 

REM 


STRS (1000 


FOR I = 1 TO 
PRINT RU 


"“N’EXISTE PAS 


#* LECTURE DONNEES #« 


NS: IF ZK > O THEN 2S - 
= VAL € MIDS (2S,7,4)) - 
INT RES:R: INPUT S$: 

S: INPUT ZYS(I): NEXT : 

S: FOR I = 1 TO S: PRINT 
“"ZYS(I): NEXT : ON 22% 
60,470,480 

REM 

REM nanannnnnnnnnnnnnnnn 


0) MODIFICATION Le 


NS(K) 
1000: PR 
FOR I = 1 TO 
PRINT RU 
"DONNEE 
GOTO 380,4 


FOR I = 1 TO S: 
NEE “:ZYS(I): 
REN 


REM nanannnnnnnnnnnnnnnea 


. CONSULTATION " 


INPUT 
NEXT : 


‘NOUVELLE DON 
GOTO 425 


PRINT : 
: GET 2S: 


PRINT “FRAPPEZ UNE TOUCHE"; 
GOTO 180 
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478 REX 
479 REM ananannnnnnnnnnanann 
LU ANNULATION » 
nannnnnnnnnnnnnnnnnn 
480 IF NL = SO THEN PRINT “CAPACITE PL 
ACES LIBRES ATTEINTE‘: GOTO 180 
490 PRINT "TAPEZ ’O° POUR ANNULER'"':: GE 
T 2S: PRINT : IF 25 < > ‘“O'"" THEN 
180 
S00 NL = NL + 1:PL%(NL) = R: PRINT WES:R 
: PRINT "“ANNULE": IF Z2K > O THEN 
520 
S10 PRINT WTS;K:NS = LEFTS (NS,6) + ‘A 
*: PRINT NS: PRINT RUS:TD = TD + 
1: GOTO 180 
S20 PRINT RUS:NC = NC - 1: IF K < = NC 
THEN FOR L = K TO NC:NS(L) = NS 
(L + 1): NEXT 
530 GOTO 180 
8998 REM 
83999 REM nannnnannnnnnnnnnnnnn 
" ROUTINE ONERR = 
nannnnnnnnnnnnnnnnnnn 
9000 Z = PEEK (222): IF Z = 5 AND 2% = 
1 THEN 130 
9010 IF 2 = S AND 2% = 2 THEN 150 
3020 PRINT PEEK (222): PRINT CLS 
Programme FICHIERS 
(variante) 
199 REM nrnannnnnnnnnnnnanen 
#* M.A,J, CREATION * 
" SOLUTION NO 2 D 
# REMPLACE -->220 #* 
nannnnnnnnnnnnnnnnn 
200 IF NC = O THEN 230 
205 GOSUB 210: PRINT RUS: GOTO 230 
210 IF NZ > O THEN 215 
212 PRINT DS'"CLOSETAB": PRINT OTS: FOR 
I = i TO NC:2S = LEFTS (NS(I),10 
2: PRINT WTS:1: PRINT ZS:NZ = NZ 
+ 1iNT = NT + 1: NEXT : RETURN 
215 LL = 1:NN = NT:NT = O:NZ = NZ + NC: 
PRINT D1S"OPENTB2,L11‘: FOR I = i 
TO NN: PRINT RTS:1: INPUT NS:ss 
= LEFTS (NS,6):AS = LEFTS (NSCL 
L),6): IF SS < = AS OR LL > NCT 
HEN 2S = NS: GOTO 222 
220 2S = LEFTS C(NS(LL),10):LL = LL + 1: 
2 RP CRE 
222 NT = NT + 1: PRINT DS"WRITETB2,R'':NT 
: PRINT 2S: NEXT I: IF LL > NC TH 
EN 226 
224 FOR I = LL TO NC:NT = NT + 1:2S = 
LEFTS CNS(I),10): PRINT DS'"WRITET 
B2,R'";NT: PRINT 2S: NEXT 
226 PRINT CLS: PRINT DS'"DELETETAB": PRI 
NT DS'"RENAME TB2,TAB‘": PRINT OTS: 
PRINT OFS: RETURN 
Pom's n° 8 


Si vous êtes lassé de recevoir les messages d'erreur du 
DOS en anglais, voici un petit programme qui vous per- 
mettra de les franciser. Les messages habituels apparais- 
sent en anglais un par un; il vous reste à indiquer à cha- 
que fois le message en français que vous voulez utiliser à 
sa place. Dès la fin du programme, les nouveaux messages 
d'erreur sont opérationnels,et mémorisés sur la disquette 
dans le fichier MESSAGE: leurs positions sont enregistrées 
dans le fichier TABLE. 


Sauvegarde du DOS 


Si vous venez d'utiliser ce programme pour modifier les 
messages du DOS, il vous suffira d'initialiser une disquette 
comme d'habitude pour que son DOS soit modifié en 
conséquence, sous réserve que la longueur totale de vos 
messages soit restée inférieure à 202 caractères. Si celle-ci 
est supérieure à 202 caractères mais inférieure ou égale à 
252, vous ne pourrez pas initialiser une disquette avec ce 


DOS mais vous pourrez charger les messages en français 
en "’BLOADant” TABLE et MESSAGES. 


Chargement des messages 


Si vous désirez à un moment donné modifier les messages 
d'erreur du DOS par ceux que vous avez créés avec ce 
programme, il suffit de mettre la disquette sur laquelle se 
touve la table dans le lecteurs et de faire ’BLOAD 
TABLE”. A partir de ce moment, vous pouvez vérifier que 
les nouveaux messages sont actifs. 


Vérification des messages 


Supposons que vous ayez un programme verrouillé bap- 
tisé HELLO, un programme integer INTEX, et que le nom 
de fichier ZZZ ne soit pas utilisé. Voici les messages habi- 
tuels que vous devez recevoir, en essayant les exemples 
non exhaustifs indiqués ci-dessous. 


OPEN ZZZ Not direct command 

LOAD ZZZ File not found 

SAVE 2Z2,V49 Volume not found 

SAVE ZZZ,S9 Range error 

BLOAD HELLO File type mismatch 

INT Syntax error {si non chargé) 
LOAD INTEX Language not available 
SAVE HELLO File locked 


Avec une disquette protégée contre l'écriture : 
SAVE Z2Z Write protected 
Après avoir enlevé la disquette : 


SAVE 2ZZ2Z 1/O error 
En mettant une disquette pleine : 
SAVE ZZZ Disk full 


NDLR : faites BLOAD TABLE POM'S et BLOAD MESSA- 
GESPOMS avec la disquette d'accompagnement de 
Pons. Vous aurez un échantillon de ce que fon peut ob- 
tenir en essayant ces exemples. 


Francisez le DOS 


Philippe Krepper 


WUTILE LE UERDEA L'AUTRE 
@ouT « JE Lai œouré | 









TS \S 
Kw 





O REM #*#** DOS.ERREUR ### 
##* APPLE 48 K ##* 


rire AVEC DOS ### 


1 TEXT : HOME : VTAB S: PRINT ‘“ AVEC LE 
PROGRAMME SUIVANT VOUS ALLEZ 
POUVOIR TRADUIRE LES MESSAGES D'’E 
RREUR DU S.E.D EN FRANCAIS , MAI 
S L'ENSEMBLE DE VOS MESSACTS NE 
DOIT PAS DEPASSER 252 CARACTER 
ES." 
2 PRINT : PRINT "“ ET SI L’ENSEMBLE DE 
VOS MESSAGES NE DEPASSE PAS 2 
O2 CARACTERES ALORS LES NOUVEAU 
X MESSAGES SERONT ENREGISTRES 
DANS UNE ZONE MEMOIRE DU S.E. 
D ET TOUTES LES DISQUETTES 
INITIALISEES"* 
3 PRINT ‘“ A LA FIN DE CE PROGRAMME CON 
TIENDRONT LES MESSAGES FRANCAIS. 
‘®: PRINT : PRINT ‘“ POUR COMMENCER 
APPUYEZ SUR UNE TOUCHE": POKE 
- 16368,0 
S DATA “LANGUAGE NOT AVAILABLE","RANGE 
ERROR"',"''WRITE PROTECTED‘" ,‘""END OF 
DATA'","FILE NOT FOUND'",'"VOLUME MI 
SMATCH","I/0 ERROR","DISK FULL‘," 
FILE LOCKED","SYNTAX ERROR‘","NO B 
UFFERS AVAILABLE","FILE TYPE MISH 
ATCH‘", "PROGRAM TOO LARGE" 
7 HIMEM: 38143: DIM AS(15),BS(15): FOR 
L = 1 TO 1S: IF L = 2 THEN L = 3: 
DATA “NOT DIRECT COMMAND" 
10 READ BS(L): NEXT L:E = 3:B = 3: WAIT 
- 16384,128: HOME : POKE - 163 
68,0: FOR L = 1 TO 15: PRINT "MES 
SAGE ERREUR NO:":L;: IF L = 2 THE 
N PRINT “,3"::L = 3 
20 INVERSE : PRINT : PRINT : PRINT BS(L 
35 PRINT : NORMAL : INPUT “NOUVEA 
U MESSAGE "“;AS(L):X = LEN (CAS(L) 
IF X = O THEN AS(L) = BS(L):X 
LEN (AS(12)3: PRINT : PRINT ‘JE 
PRENDS ’";BS(L);"’"*: PRINT ‘COMM 
E NOUVEAU MESSAGE": 
25 B = B + X:E = E + LEN (BS(L)): IF B 
> 252 THEN PRINT : PRINT “VOUS N 


TRS 


EN 
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Société Anonyme au Capital de 1099080 F 
228, rue Lecourbe, 75015 PARIS - Téi. : 828.06.01 + 


Le SPÉCIALISTE FRANÇAIS 
de la MICRO-INFORMATIQUE 


__—— 


HA LEE ALIEE MAUSELTS 


DISTRIBUTION, CONCEPTION, FABRICATION 
ASSISTANCE TECHNIQUE 





* MICRO-ORDINATEURS + MÉMOIRES DE MASSE 


* TERMINAUX INTELLIGENTS + SYSTÈME MULTIPOSTES 








+ SYSTÈMES INDUSTRIELS * RÉSEAUX 

+ SYSTÈMES SCIENTIFIQUES MULTI-UTILISATEURS 

+ CARTES INTERFACES + ALIMENTATIONS 

+ CAISSE ENREGISTREUSE DE SÉCURITÉ 
INTELLIGENTE + GESTION STOCK 

+ SYSTÈMES CODE.BARRE + FACTURATION, etc. 

+ LECTEURS DE BADCGES + COMPTABILITÉ GÉNÉRALE 

* DISQUES + MAINTENANCE 








30 
100 


110 


120 


125 
130 


’AVEZ DROIT QU’A 252 CARACTERES 1! 
“3; CHRS (7): FOR T = 1 TO 2500: N 
EXT T: RUN 
PRINT : IF B > E THEN PRINT “VOUS A 
VEZ DEJA UTILISE “;:B - 3;° CARACT 
ERES": PRINT “ALORS QUE LE S.E.D 
N’EN UTILISE QUE “;E - 3: GOTO 35 
PRINT “VOUS N’AVEZ UTILISE QUE ‘:B - 
3; CARACTERES": PRINT “AU MEME 
NIVEAU LE S.E.D EN UTILISE “;: IF 
B < E THEN PRINT : PRINT ‘’DEJA 


PRINT E - 3 
PRINT: Pe==== ESS SRÉSSSESSEessS=S 
SES SSS “: NEXT L:A = 43377:Q 
= À: IF B > 205 THEN À = 38144:Q 
= À 
= 3:C = INT CA / 256):D = A - (C * 
256): POKE 42762,D: POKE 42763,C 


: POKE 4,13: POKE À + 1,7: POKE A 
+ 2,141:A = À + 3: FOR L = 1 TO 
15: IF L < > 2 THEN FORM=iT 
O LEN CAS(L)): POKE À, ASC € MID 
S CAS(L),M,1)):A = A + 1: NEXT M: 
POKE À - 1, PEEK (A - 1) + 128:B 

= B + LEN (AS(CL)) 

POKE 43584 + L,B: NEXT L: HOME : VTA 

B S:XS = ‘” VOUS POUVEZ CONSERV 
ER VOS MESSAGES" 

IF C = 169 THEN PRINT “ VOUS N’AVEZ 
PAS DEPASSE 202 CARACTERES VOUS 
POUVEZ DONC CONSERVER LES NOUVEA 

UX MESSAGES SIMPLEMENT EN INITIAL 
ISANT UNE DISQUETTE OU ALORS‘":XS 

PRINT XS:" EN SAUVANT LA TABLE ET 

LES MESSAGES ET EN LES FAISANT 

CHARGER PAR VOTRE PROGRAMME D 
E SALUTATION'": IF C < > 169 THEN 

PRINT * ET ENFIN EN Y AJOUTANT 
LES INSTRUCTIONS SUIVANTES:": INV 
ERSE : PRINT : HTAB 3: PRINT ‘“HIM 
EM:38143:POKE42762,":D:":POKE4276 
3,";cC 

NORMAL : PRINT : POKE - 16368,0: PR 

INT "“ VOULEZ VOUS QUE JE SAUVE L 
ES MESSAGES ET LA TABLE (CO/N)'";: 
GET RS: IF R$ = “O" OR R$ = “O" 
THEN PRINT : PRINT CHRS (4)'"BSA 
VE TABLE,ASAAS3F,L16": PRINT CHRS 
{4)"BSAVE MESSAGES,A“";:0;",L";B 

HOME : PRINT ‘ANCIENS MESSAGES /";: 
INVERSE : PRINT "/ NOUVEAUX ME 

SSAGES": NORMAL : IF C = 169 THEN 
HINEM: 38400 
FOR L = 1 TO 15: IF L = 2 THEN L = 3 
X = LEN CBS(L)} + LEN CAS(L)): IF 
X > 39 THEN 120 
PRINT BS(L);: INVERSE : HTAB 41 - 
LEN CAS(L)): PRINT AS(L);: GOTO 1 


40 

PRINT 8S(L)::Y = LEN CAS(L)):2Z - 
LEN (BS(L)):W = 40 - Z: FOR M = 4 
TO 1 STEP - 1: IF MIDS CAS(L), 
M,13 < > ‘* “ THEN NEXT M 

INVERSE 

WS = LEFTS CAS(L),H - 1):YS =  RIGH 
TS CAS(L),Y - M): HTAB 41 - LEN 
CWS): PRINT WS:: HTAB 41 - IEN € 


YS): PRINT YS; 


| CENTRE DE DÉMONSTRATION : 193. rue de Javel. 75015 PARIS | 140 NORMAL : NEXT L 
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Saisie de réels en Pascal 


Philippe Chemin 





La procédure Pascal que je vous Touches Bloc numérique NDLR : la procédure PREEL de Mi- 
propose autorise la saisie de réels, du clavier chel Crimont (Pascal à 12 chiffres) 
hors exposant, mais avec pavé nu- 7 8 9 re Ce) fait la même chose, mais sans le 
mérique. Celui-ci est formé par le U 1 0 4 5 6 pavé et de façon moins interactive. 
bloc de touches à partir de ”7”, ”8” ARC IDC Par contre, elle permet l’utilisation 
et 9” sur un clavier QWERTY. Il est M 0 d'exposants. 
facle de modifier le programme à , 
votre convenance si vous possédez 
un clavier AZERTY, ou si vous préfé- 
rez situer le bloc ailleurs. 
PROGRAM ESSAI: CONT:e’*: 
VIRG:20: 
TYPE CHOIDECA=SET OF CHAR: POSITIF:= TRUE: 
GOTOXY(X,Y): 
VAR TEST: REAL ; WRITE(’ *’:LMAX): 
HOME, BS,CR, SON ,ESC: CHAR ; GOTOXY{X,Y): 
POINTEXISTE:BOOLEAN: REPEAT 
PAVE:BOOLEAN: 1F LENCGTHCCONT)=0 


PROCEDURE PRINFO: 
BEGIN 
BS:=CHRC8): 
HOME :=CHR{12): 
CR:=CHRÇ13): 
SON: 2CHR(7) : 
ESC:2CHR(27): 
END: (*PRINF @» ) 


FUNCTI®ON PRENCAR(BONSET :CHOIBECAD:CHAR: 


VAR CH  :CHAR: 

BON : BOOLEAN: 
BECIN 
REPEAT 


READ(KEYBOARD ,CH) : 
IF EOLN(KEYBOARD) THEN CH::CR: 
BOK:=CH IN BONSET: 
IF NOT BON 
THEN WRITE(SON) 
ECSETZIFCCH IN al" 2.2 
THEN BEGIN 
1F PAVE 
THEN BEGIN 
CASE CH OF 
’n° :CH:=°0° 
+ °2:Ch:"’1? 
‘K°:CHi=’2° 
‘L'iCH:=°3° 
"U-:CH:s"4? 


nr) 


-17:CH:="S" 
*0’:CH:=°6° 
Sr CHE Sc 
END: 
IF CH IN [’.’3} THEN POINTEXISTE:=TRUE: 
END: 
WRITE(CH): 
END: 


UNTIL BON: 
PRENCAR: =CH 
EXD: (7 PRENCAR* ) 


PROCEDURE REEL(X.Y,LMAX,DEC1:INTEGER;VAR NOMBRE:REAL) ; 


VAR S1 :STRING(i): 
ï :INTEGER: 
CONT STRING: 
OKSET  :CHOIDECA; 
VAL :INTEGER; 
OENOK :INTEGER: 
VIRG : INTEGER: 
POSITIF:BOOLEAN; 
DEBUT :INTEGER: 

PROCEDURE S@RTIE: 

BEGIN 

GOTOXY(X,Y): 


WRITE 4NOMBRE:LUAX:DECI) : 
PAVE : =FALSE ; 

EXIT(REEL) : 

END; C(eS@RTIE +) 


BEGIN 

PAVE: = TRUE: 

DRSETI= "0.290,20. rs, 107,777, M, ESC: 
POINTEXISTE: -FALSE: 

Sirme' vs 


THEN S111]:=PRENCAR(COKSET:+ICR, ’-°1}) 
ELSE IF (LENGTH(CONT)=LMAX) OR CVIRG=DECI) 
THEN S101]1:=PRENCARÇICR,BS1) 
ELSE IF POINTEXISTE 
THEN S$1l1]):=PRENCAR(OKSET-+(CR,BS) ) 
ELSE S1(1):"#PRENCAR(OKSET-(CR,BS,°.°,°,’1): 
IF S1i(1]-ESC THEN SORTIE: 
IF S1(11 IN OKSET+[’.‘,‘-:) 
THEN BEGIN 
CONT:=CONCAT{CONT,S1 ) : 
1F S1112 IN [’-’}] THEN POSITIF:=:FALSE: 
IF (Stt11} <> ’.’) AND (POINTEXISTE) THEN VIRG:=VIRG+1; 
END 
ELSÉ IF S111)-=BS 
THEN BEGIN 
WRITE(BS,’ ‘,BS); 
1F POINTEXISTE THEN VIRG:=VIRG-1: 
CASE CONTILENGTHC(CONT)I OF 
*./:BEGIN 
POINTEXISTE; =FALSE; 
VIRG:°0; 
END: 
*-!:POSITIF:=TRUE: 
END: 
BELETEXCONT, LENGTH (CONT),1) 
END: 
UNTIL Sil1i=CR: 
1F LENGTHICONT)<>0 
THEN BEGIN 
NONBRE:+0; 
POINTEXISTE:=FALSE: 
DENOH:"1%: 
1F POSITIF THEN DEBUT:=1 ELSE DEBUT:32: 
FOR 1:=DEBUT TO LENGTH(CONT) DO BEGIN 
VAL:=ORDCCONTII]): 
IF CONTII2="." 
THEN POINTEXISTE: =TRUE 
ELSE BEGIN 
1F POINTEXISTE 
THEN BEGIN 
NOMBRE :=NOMBRE-*+(VAL-ORDt*0°):/BENONH: 
DENOM :=BENOM»10; 
ENB 
ELSE BEGIN 
NOHBRE:=NOMBRE#10: 
NOMBRE: =NOMBRE- (VAL-ORD(C'O°) 


END: 
END: 

END: 

END: 
IF NOT POSITIF THEN NOMBRE:-=-NOMBRE: 
SORTIE; 
END :(°REEL =») 
BEGIN 
PRINFO: 
WRITECHOME) : 
REPEAT 


GOTOXY(O,5): 
WRITE{"XXXXXXXXXXXXXXXXXXXX "2: 
TEST:=-1000.68S: 
REEL{4,5,8,2,TEST): 
GOTOXY(0,7); 
WRITELN(TEST ,”° (gb 

UNTIL TEST-0; 

END. 
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SR ti de en ou") 
3 LIVRES ET LEUR DISQUETTE 





gérard lil 
serge Lille 


POUR VOTRE APPLE 


r Apple Il, ll plus et /e DOS 3.3, version 48 K ou plus 





Vous avez achetéle livre “La comptabilité sur Apple Il” de Serge et Gérard Llillio, et vous n'avez 
pas le temps nécessaire pour taper vous-même les programmes sur votre Apple. Dans ce cäs, 
cette disquette vous est tout particulièrement destinée ! 

L'ensemble des programmes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage, à l'exception des ardres pour imprimante. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
comptabilité. Ainsi, tes trois exemples de libellés cités en annexe dans le livre et ci-incius, 
doivent être envisagés en tent que point de départ pour une utilisation pius personnelle. 
La disquette seule : 185,00FF/1425,00FB 


Le livre décritun ensemble de programmes de comptabilité générale en Basic pour petites entreprises, professions libé- 
rales, attisaris, commerçants Avec édition des livres-jourral, grands livres, balances, bilans:. Avec calcul les ratios. Pro- 
gramme spécial intéressant l'adaptation et lapersonnalisation du plan comptable. Et... quelques “ficelles” pour Apple IL. 


Le livre seul: 102,00FF / 785,00FB 


Voici une disquette qui permet aux lecteurs de "Visicalc sur Apple” d'accéder directement à tous 
les tableaux Visicalc présentés dans le livre. {{s trouveront sur cette disquette la réplique exacte 
des tableaux présentés dans l'ouvrage. S'y ajoute un programme en Basic permettant l'impres- 
sion des formules d'un tableau, sur une ou deux colonnes, dans l'ordre de A1 vers le bas à droite 


nISATION ET 
UE ee 


du tableau. 


Attention : cette disquette ne peut être utilisée sans la disquette maîtresse Visicalc. HERVE 
La disquette seule : 185,00FF /1425,00FB 
Après une présentation progressive du modèle Visicalc, l'ouvrage présente un ensemble d'exemples d'appliations, 


échéancier de remboursement, feuille d'impêt, gestion de copromiété, paye, lacturation..., permettant d'introduireles 
différentes instructions el astuces d'utilisation. 


Le livre seul: 





FRANCE 


82,00FF / 635,00FB 


P.S.i. CIFFUSION 
BP 66 - 77402 Lagny -s/Marne Cedex 


Téléphone (6) 006.44.35 
P.S.1. BENELUX 


Téléphone (2) 345.08.50 


en Suisse 


THIRIEZ 


Vous avez acheté le livre “Mathématiques et statistiques", et vous n'avez pas le temps de taper 
vous-même les programmes sur votre Apple? Alors cette disquette vous est tout particulière- 
ment destinée ! 

L'ensemble des programmes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage. 

Cette disquette doit être coosidérée comme une aide au lecteur et non comme un progiciel de 
mathématiques. 

La disquette seule : 185,00FF/1425,00FB 


Le livre décritun ensemble de programmesenBasic de mathématiquesetde statistiques, niveau supérieur Chaque pro- 
blème traité comporte une introduction numérique, un exposé de {3 technique de programmation utilisée, un oryani- 
pramime détaillé et un programme complet sumid'unexemple d'utilisation. Lesprogrammessontstruclurès de manière 
à permettre une inserlion dans des programmes pius importants, 


Le livre seul: 92,00FF / 710,00 FB 





MICRO-EXPO Stand N 14 - N 15 


Envoyer ce bon 
accompagné 

de voire réglement à 
PS. DIFFUSION 

ou, Pour la Due el 





S,e venue de la Ferme Rose le Luxembourg, 
1180 Bruxelles PS. BENEL a 
BÉCRLE C Faremert par chèque joint © Paiemert an FF par cate Dieu VISA a Signature {obligatoire pour paiement par carte de crédit) 


{àP.5S.1. DIFFUSION uniquement) 
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Pom's vous offre à partir de ce nu- 
méro une rubrique ‘’’micro-informa- 
tions” régulière. On y trouvera pèle- 
mêle informations et nouveautés 
pour la gamme Apple (Il //e et ///). 
En fin de rubrique sont regroupées 
les adresses des différentes entrepri- 
ses citées, ainsi que les références 
dans le cas d'informations tirées de 
revues étrangères. Les prix mention- 
nés sont habituellement donnés en 
francs français T1C. Ils ne sont qu'in- 
dicatifs et peuvent être sujets à varia- 
tion. 


Les lecteurs de 
disquettes 


Les progrès effectués dans le do- 
maine des lecteurs de disquettes 
prennent plus'eurs aspects : formats 
éduiék (disquettes 3.5 pouces que 
lon devrait voir bientôt apparaître en 
compatibles Apple), densités accrues 
(plus de 1 mégaoctet sur une dis- 
… quette 5 pouces 1/4) et encombre- 

ment réduit. RMI propose des unités 
de disquettes de marque TEAC, en- 
tièrement compatibles contrôleur 
Apple, mais 30% moins hautes. Prix 
sans contrôleur : 2950 FF. 


Pour demain, avec les disquettes à 
enregistrement vertical, des disquet- 
tes 5 pouces avec des capacités for- 
matées de 5 mégaoctets (2,5 Mo par 
face. Ces merveilles sont encore au 
niveau prototype. Patientez donc un 
peu. 


Les imprimantes 


Domaine très actif actuellement, les 
imprimantes où l’on vient d’enregis- 
ter coup sur coup plusieurs nou- 
veautés. Tout d’abord, à tout sei- 
gneur tout honneur, les deux 
imprimantes de marque Apple. La 
première est de type matriciel (97 
points) et ressemble furieusement à 
la NEC. Rapidité (120 caractères par 
seconde), souplesse (sept alphabets 
spéciaux, huit tailles de caractères), 
rædéfinition des caractères, espace- 
ment proportionnel et copie d'écran 
graphique. Ses possibilités ainsi que 
son prix (7200 FF avec interface) de- 
vraient en faire une concurrente sé- 
rieuse des Centronics, Microline et 
Epson. 


La deuxième, grâce à une impression 
à margueïite, permet une frappe de 
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Micro-informations : 


les 


très haute qualité. Destinée aux ap- 
plications de traitement de texte ou à 
la sortie de documents de qualité 
professionelle, elle présente des ca- 
ractéristiques intéressantes : 40 carac- 
tères par seconde {cps), largeur jus- 
qu'à 38 cms (198 colonnes avec 
caractères resserrés), tabulations, jeux 
de caractères internationnaux.. Son 
prix de 19000 FF avec interface la 
réserve cependant aux applications 
professionnelles. 


De son côté, Epson vient de sortir 
deux nouveaux modèles. La FX80, 
tout d’abord, offre de nouvelles amé- 
liorations par rapport à la série 
MX82: matrice 9x9, 160 cps, mé- 
moire vive de 2K utilisable soit en 
buffer d'entrée, soit en redéfinition 
de caractères, possibilité de sauts de 
ligne arrière. Son prix est d'environ 
9900 FF avec interface. Quant à 
l'autre modèle, la RX80, je ne pour- 
rai vous décrire ici ses caractéristi- 
ques car je n'ai pu me procurer la 
documentation. Seul élément connu, 
son prix : 6500 FF avec interface. 


Les cartes 


Une nouvelle sorte de carte est en 
train d’apparaître. I] s’agit d’une carte 
comprenant un 6502C (fonctionnant 
à 4 MHz au lieu de 1 MHz pour le 
6502 normal) et 64K de RAM. Un 
petit programme lui permet de désé- 
lectionner le 6502 en place sur la 
carte mère et d'effectuer toutes les 
opérations à sa place, à la seule dif- 
férence qu'il les exécute 3 à 4 fois 
plus vite. Ce gain de temps ne s'ap- 
plique bien entendu pas aux opéra- 
tions avec la disquette qui s'effec- 
tuent toujours avec la même lenteur. 


Pour exploiter ce gain de temps, il 
faudra que jessaie le programme 
d'échecs Sargon 2.5 au niveau 6: je 
ne l’ai utilisé qu’une fois au niveau 4, 
pour abandonner par KO” à 3h du 
matin après 5h d'échanges désespé- 
rément lents. Outre l'exécution de 
gros programmes nécessitant peu 
d'accès disquette, les applications 
graphiques semblent pouvoir offrir de 
nouvelles perspectives dans l’anima- 
tion avec cette carte. 


Conçue par la société américaine 
Number Nine, cette carte va étre im- 
portée en France par BIP (Prix fran- 
çais non encore précisé ; prix améri- 
cain : 650 dollars). 


nouveautes 


Jean-François Duvivier 


Steve Watt est anglais. Il s’est installé 
à Paris et a fondé Microperiph pour 
distibuer des produits spécifique- 
ment consacrés à l'Apple. Parmi les 
bonnes affaires qu'il propose, rete- 
nons la carte 80 colonnes U-Term à 
1490 FF, un dispositif permettant la 
répétition automatique des caractères 
lorsqu'une touche est laissée enfon- 
cée (inutile pour le //e!) pour 110 
FF, des disquettes 3M renforcées à 
180 FF la boite de 10. Il a également 
importé la carte ‘’’Accelerator Il” qui, 
grâce à un 6502 fonctionnant à 4 
MHz, accélère dans un facteur 3 à 4 
la vitesse d'exécution des program- 
mes sur Apple (3950 FF) Si vous 
passez chez lui, dites que vous venez 
de notre part, vous serez bien ac- 
cueilli. Attention, n'hésitez pas à en- 
trer, c'est au premier étage. 


Parmi les nouvelles cartes, citons 
aussi toutes celles qui permettent de 
conserver les informations une fois 
l'Apple éteint. MPC Peripherais a 
conçu une carte 128K à base de mé- 
moires à bulles, qui permet de rem- 
placer réellement un lecteur de dis- 
quettes grâce au ”’Disk Emulator”, y 
compris au niveau de la non-volatilité 
des informations. 


Autre démarche, celle adoptée par 
Legend qui propose une carte 18K 
en technologie CMOS, avec batterie 
incorporée. Pourquoi 18K? Parce 
que le DOS prend exactement 18K 
de mémoire vive et peut se stocker 
dans cette carte. Ainsi, dès la mise 
sous tension, le DOS est présent 
dans l'Apple. Bien entendu, tout 
autre programme peut être mis dans 
cette carte, pour obtenir un système 
’tumkey” exécutant le programme 
dès la mise sous tension de l’appa- 
reil Toutes les cartes Legend sont 
importées par BIP. Prix de la carte 
18SRC : 1550 FF. 


La carte Legend 128K DE fonc- 
tionne maintenant sur Apple II et //e; 
elle est fournie avec interface Le- 
gend, Boot Visicalc (160K utiles), 
programme de gestion de fichiers 
ultra-rapide, simulateur de disque, … 
et manuel en français Nouveau 
prix : 5.600 FF; la caite 64K est dis- 
ponible à 3.600 FF. 


Vous trouverez aussi chez BIP la 
carte ”80 colonnes” UltraTerm , qui 
vous donne les choix suivants: 
24180, 32x80, 48x80, 24196, 
32128, 24x132 et 24*160. Compa- 
tibilité avec Visicalc et Applewriter Il. 
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Avec la carte PCPI 88CARD, compa- 
tible Apple IE et //e, vous ajoutez 64K 
aux 64K de votre Apple, pour un 
total de i28K de mémoire centrale. 
Mais surtout, vous disposez du sys- 
tème d'exploitation MS-DOS de 
l'IBM OP. La carte avec le MS-DOS 
et le MBASIC est vendue 595 FF. Le 
CP/M-86 est disponible en option. 
Fabricant : Personal Computer Pro- 
ducts inc.(PCPI). 


Autre produit PCPI : l'APPLI-CARD 
offre 64K de plus, un écran de 70 
colonnes, et le choix entre des pro- 
cesseurs 280 à 4MHz (295) ou 
6MHz. Avec cela, votre CP/M tourne 
2 à 3 fois plus vite qu'avec une carte 
Z80 habituelle. 


Les communications 


Le Service Calvados de l'American 
College in Paris étoffe ses services. 
Citons notamment la prochaine mise 
en place d’un service Bourse qui per- 
mettra l’accès à une base de don- 
nées de 20.000 cotations quotidien- 
nes (marchés français et étrangers) et 
la possibilité de création de bases de 
données privées. Une documentation 
complète peut être obtenue sur de- 
mande. 


La société Communication Interface 
présente un ensemble Microtelex qui 
permet d'accéder à païitir d'un Apple 
au réseau télex national et internatio- 
nal. Les avantages par rapport aux 
matériels télex classiques résident 
dans les possibilités de traitement de 
texte, de numérotations abrégées, de 
transmission différée et de gestion 
des différents types de rejet du ré- 
seau. Autre avantage, et non des 
moindres : le silence ! Le matétiel est 
bien entendu agréé par les PTT. Do- 
cumentation disponible sur demande. 


Acquisition et 
traitement de données 


EUROTRON  introdut en France 
lISAAC 91A de Cyborg (USA): il 
s’agit là d’un système polyvalent 
d'acquisition rapide de données et de 
contrôle de processus. Entrées analo- 
giques (tensions, courants, capteurs 
et transmetteurs 4/20 mA, thermo- 
couples) ou numériques (via RS232 
et IEEE), sorties analogiques ou nu- 
mériques. 


Les jeux 


Saluons ici la société Penguin Soft- 
ware qui, face au piratage des logi- 
ciels, essaie de trouver des solutions 
originales. Après avoir l'an dernier 
ôté toutes les protections de ses logi- 
ciels utilitaires graphiques (Special Ef- 
fects, The Complete Graphics Sys- 


tem et Graphics Magician), elle a 
annoncé à partir du ler mars un prix 
unique pour tous ses jeux: 19,95 
dollars, ce qui représente entre 200 
et 250 FF. Parmi les jeux édités par 
Penguin Software, notons Pie-Man, 
Spy's Demise, Transylvania, Thun- 
derbombs et Crime Wave. Souhai- 
tons d'une part que l'expérience soit 
concluante pour Penqguin Software, 
d'autre part qu'elle fasse des émules 
parmi les autres sociétés. Dernier 
souhait, et non des moindres, que 
tous ces jeux soient très vite distri- 
bués par des boutiques françaises à 
des prix raisonnables. 


Les jeux d'aventures ne connaissent 
plus de limites. L'un des plus célè- 
bres, Time Zone, dispose de 1400 
images graphiques différentes, le tout 
étant présenté sur 6 disquettes recto- 
verso | Plus récent, Sherwood Forest 
charge ses images en 1 seconde ! 


Les programmes 


LOGAWAL lance la version 3.0, en- 
tièrement en français, du logiciel 
WalCore de gestion de fichiers tour- 
nant sur CP/M Ce progiciel peut 
traiter 13.000 fiches de 500 caractè- 
res avec accès instantané par l'index, 
bis et sélections multi-critères, im- 
pression en tableaux, étiquettes et 
lettres personnalisées, modification 
de la structure des fichiers existants. 
Prix : 3.143 FF. 


Autres produits de la même société : 
version 3.0 de Wordstar en français 
et système de gestion de base de 
données InfoStar (combinaison de 
DataStar et ReportStar). Wordstar et 
InfoStar sont vendus au prix de 
25.500 FB HT chacun. 


Magicaic vous donne toutes les fonc- 
tions du Visicalc plus des améliora- 
tions à un prix plus intéressant : 
2.000 FF. Possibilités : colonnes de 
largeur variable, utilisation avec dis- 
que dur, colonnes invisibles ou pro- 
tégées, 70 colonnes par logiciel, re- 
connaissance automatique de 
nombreuses extensions mémoire. 
Magicalc est vendu par BIP. 


Executive Briefing System (EBS) est 
un ensemble de deux programmes 
distribués par SOFITEC dont le but 
est de vous permettre la projection 
d'images graphiques. Le premier 
programme sert à composer là pro- 
jection, le second à la présenter. 
Pour la composition : bordures, choix 
de caractères, histogrammes, … 


Le programme de gestion de cabinet 
dentaire Agatha du Dr. Gaussen 
vient d'apparaître en version IV. 
Avec la carte Legend, vitesse cinq 
fois supérieure. Capacités possibles : 
300, 510 ou 675 fiches de patients 
en cours de traitement. 


La base de données Omnis en Pas- 
cal est à présent francisée et 
commercialisée par la société KA. 
Omnis est, selon la publicité, plus 
puissant que DB Master et aussi fa- 
cile à utiliser que PFS. 


Enfin, si vous cherchez à classer vos 
disquettes dans des enveloppes en 
plastique rangeables dans des clas- 
seurs, FRANIC vous donne le choix 
entre plusieurs types de pochettes. 
La feuille plastique avec deux poches 
pour disquettes 5 pouces est vendue 
40 FF la dizaine. 


Le marché des 
micro-ordinateurs 


Le domaine des ordinateurs compati- 
bles Apple se développe rapidement. 
Procès à la clé, Apple tente d'enrayer 
le phénomène. Il semble même que 
des saïsies et destructions soient ef- 
fectuées par les douanes américaines 
lors de l'importation de certains de 
ces matériels aux USA Outre le 
BASIS 108 dont nous vous parlons 
dans ce numéro et le Golem dont 
nous vous parlerons, on peut trouver 
aux Etats-Unis le ”’Orange+”, le ”Pi- 
neapple”, le ”’AP-[”, le ”Frankkn 
Ace 1000 et 2000”, le ”’Syscom”… 
et la liste n'est certainement pas 
complète |! 


D'après une étude de marché de la 
société ”’Future Computing”, le parc 
des différents micro-ordinateurs s'éta- 
blissait comme suit en fin 1982: 
Commodore VIC 20: 750.000 
unités, Apple Il et ZX80/81: 
600.000, Texas TI-99/4A : 575.000. 
Une étude qui a le mérite de faire le 
point des différentes forces en pré- 
sence, excepté l'IBM OP qui démarre 
très fort, mais dont les chiffres sont, 
comme toujours, sujets à caution. 


Les informations 


La revue Softalk (la plus épaisse des 
revues consacrées à l'Apple: 300 
pages mensuelles) publie le résuitat 
d'une étude effectuée auprès de ses 
lecteurs sur les logiciels les plus po- 
pulaires parmi ceux commercialisés 
entre fin 81 et fin 82. Grand ga- 
gnant : Choplifter (vous savez, l’héli- 
coptère qui Va sauver les otages !) 
créé par Broderbund Software. Le 
second, très détaché également par 
rapport aux suivants, est Wizardry de 
Sir-tech. Le troisième n'est autre que 
Locksmith 4.1, effectivement très po- 
pularre chez certeins utilisateurs. 


Pour les possesseurs d'Apple ///, une 
publication ”’The Apple Three News- 
letter” est éditée trimestriellement 
aux USA par Mediaworks. Coût an- 
nuel: 15 dollars (prévoir près du 
double à cause des frais d'envoi). 


Porm's n° 8 


Ceux de nos lecteurs à qui Pom's ne 
suffit pas et qui se gavent de revues 
étrangères, pourront trouver les prin- 
cipales d’entre elles chez SIDEG ou 
chez SIVEA, qui se révèlent avoir le 
choix le plus étendu (mais surtout 
ny allez pas pour acheter votre 
Pom's trimestriel : mystère d’entre les 
mystères, il y est souvent en rupture 
de stock !). 


Adresses 


BIP - 22 rue Joseph Dijon - 
Paris - Tel (1) 255.44.63 
Communication Interface - 2, place 
d'Aligre - 75012 Paris - Tel (1) 
341.85.85 


75018 


EUROTRON - 34 avenue Léon 
Jouhaux - ZI. - 92167 ANTONY 
CEDEX. 


FRANIC - Rue de la Chapelle - 
B.P.2 - 49190 Beaulieu s/Layon-Tel 
(41) 78.36.55 

Gaussen (Dr. Pierre) - CD Soft - 
59bis rue de la Biche - 30000 Nîmes 


KA - 212 rue Lecourbe - 75015 
Paris - Tel (1) 53313.50 
LOGAWAL - 200 avenue Winston 
Churchill (Bte 22) - 1180 Bruxelles - 
Belgique 

Mediaworks - POB 2757 - San 
Francisco CA 94126 

Microperiph - 60 rue Ducouedic - 
75014 Paris - Tel (1) 321.41.80. Ou- 
vert de 10 à 12h et de 14 à 18h du 
mardi au samedi (1er étage). 


MPC Peripherals Corp. - 9424 
Chesapeake Drive - San Diego, CA 
92123 - USA. Voir Byte Nov 82, 
page 287. 

Personal (Computer Products 
Inc. - 16776 Bernardo Center Drive 
- San Diego, Ca. 92128 - USA 
Penguin Software - 830 4th Ave- 
nue - Geneva IL60134 - USA 

RMI - 71 Bd Marceau - 92700 Co- 
lombes - Tel 785.68.89 

Service Calvados - BP 21-07 - 
75327 Paris Cedex 07 - Tel (1) 
705.09.04 

SIDEG : 170 rue Saint Charles - 
75015 Paris - Tel (1) 557.79.12 
SIVEA - 31 bd. des Batignolles - 
75008 Paris - Tel (1) 522.70.66 
SOFITEC -: 207 rue Galliéni - 


92100 Boulogne - Tel (1) 605.88.78 





Trucs et astuces 


Listings désassemblés 


Quand on désassemble des programmes en langage ma- 

chine, la commande L du moniteur n'affiche que 20 ins- 
kuctions. Pour en afficher plus, on peut appuyer plusieurs 
fois sur L, mais c'est fatigant, surtout s'il faut désassembler 
e longs programmes sur imprimante. 


Pour éviter cela depuis le moniteur. il suffit de faire : 


ladresse] L34n 
où n est le nombre de caractères de l'adresse. de O (sil 


Applications : 
+ Engineering 
° Automation 
+ Banc d'essais 


n'y en a pas) à quatre chiffres. Il ne faut pas mettre d’es- 
pace. sauf après le n, où il est obligatoire. 


Exemples : 
L34:0 
300L34:3 


On trompe ainsi le moniteur : remettre la mémoire 34 à n 
lui indique qu'il faut exécuter des commandes à partir du 
n‘ caractère de la ligne fici L}, l'espace lui indiquant juste- 
ment que l'on n’est pas en fin de ligne. 


Il faut appuyer sur RESET pour arrêter le listing (ou 
CTRL:-C si PLE est en mémoire). 


+ Contrôle de processus - Chimie - Psychologie - Physiologie... 


LE SUPPORT et LE SERVICE EN PLUS 


re 
EUROTRON 
RES 


DIVISION MICROINFORMATIQUE 
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VOUS INVESTISSEZ EN 


MICROINFORMATIQUE, 


FAITES LE 
EFFICACEMENT. 


ous allez investir dans un ordinateur personnel. 


Vous voulez être guidé dans votre choix et garantir au 
maximum votre investissement. 


Vous voulez vous servirefficacement de votre ordinateur 
personnel et souhaitez une assistance soutenue et suivie tant sur 
le matériel que sur l'emploi des logiciels. 


MINIGRAPHE MICROINFORMATIQUE, créée à 
Boulogne-sur-Seine il y a trois ans par Jean-l ouis Orsini, met à 
votre disposition un système d'assistance efficace qui vous per- 
mettra de réussir votreinvestissement et d'optimiser vos résultats. 


Téléphonezui, il vous donnera toutes les informations 
nécessaires. 


En nous rendant visite, 
vous pourrez voir 
fonctionner 

des logiciels 
performants sur nos 
ordinateurs personnels. 


MINIGRAPHE 
MICROINFORMATIQUE 


»3, Boulevard Jean-Jaurès 92100 1 Boulogne 


60844/31 





B.I.P. Information 


Un système informatique ne se limite pas 
à sa configuration de base. 


1 faut pour l'exploiter un ensemble de logi- 
ciels et interfaces spécialisées efficaces. 


C'est dans cet esprit que BIP propose ses 
logiciets et interfaces pour Apple 2 


UTILISATEURS DE ..CALC : 
Le temps des pionniers de Visicalc avec 40 colonnes 
et 18K mémoire est bien dépassé ! 
Aujourd'hui, grâce à BIP : 
* Utilisez les touches nouvelles de l'Apple II. 
* Jusqu'à 512K mémoire. 
80 colonnes avec carte, 70/40 sans. 
Largeur des colonnes indépendante, 
cachées ou protégées. 
Stockez les fichiers sur disquette ou disque dur. 
16 000 cases utilisables au lieu de 8 000 en Visicalc. 


Profitez de toutes ces possibilités supplémentaires 
et beaucoup d'autres. demandez MAGICALC 

dès maintenant disponible chez les meilleurs 
revendeurs. 


BON TEMPS AVEC TAMPON 
d'imprimante 


Une interface Tampon d'imprimante a une 
mémoire additionnelle qui emmagasine très vite 
l'information à imprimer et la redistribue à 
l'imprimante à sa vitesse. 


Elle vous permet de continuer à travailler sans 
attendre la fin de l'impression. 


BIP a toute une gamme d'interfaces. 
renseignez-vous pour trouver celle qui 
correspond à vos besoins. 


BIP 


C'est aussi toute une gamme d'accessoires 
pour les jeux graphiques : joystick, paddles. 
interfaces d'animation stéréo sonore et paroles. 
Et toujours : 

Ventilateur RH Eiectronic. 

Carte Interface Vidéo. 

Carte Synthétiseur Vocal. 


NOUVELLE Carte 128k LEGEND 
pour Apple 114 ,1Il° et /// 


PROMOTION SPECIALE AU MOIS DE JUIN : 
Carte LEGEND 128K + MAGICALC : 5700 FF, HT. 


BIP sera présent à MICRO-EXPO stand N 26 
Documentation sur demande. 
En vente chez les meilleurs revendeurs. 


2 l'informatique personnalisée d 


Distributeur : BIP 22 rue Joseph Dijon 75018 Paris Tél. 255 44 63 


Madicale àst une Marque déposée dé Artsci 

Visicuie est une Marque déposée de Visocorp 

Apple est une Marque déposée de Apple Computer inc 
Legend est-une Marque déposée de Legend Ind 
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1 - J'aurais grand besoin d’un pro- 
gamme à compacter les program- 
mes. Où trouve-t-on cela ? On peut 
gegner 1/4 de la place mémoire oc- 
cupée par le programme. 


2 - S'il vous arrive de retrouver une 
lige de programme modifiée, par 
exemple un ‘*” que vous avez mis 
et qui a disparu, ou un token pris 
pour un autre, et si la modification se 
reproduit après correction, ne cher- 
chez pas la réponse pendant trois 
jours (comme cela m'est anivé). J'ai 
été jusqu'à ramener ma machine au 
vendeur pour qu'il J'essaye... 


Commencez par vérifier les POKESs 
dans votre programme. En particu- 
ler, s vous avez eu le malheur de 
taper POKE 333,33 au lieu de POKE 
33,33 pour un programme de cap- 
ture ou pour l'édition de lignes. le 
POKE modifié à contre-temps provo- 
que, de façon difficilement prévisible. 
œæ genre de modification. 


Cela vient de m'arriver en entrant en 
machine le progamme ‘Les 4 
ponts”, pour lequel il faut remercier 
Olivier Herz. En ligne 100. j'avais 
entré POKE 333,0 au lieu du 233,3. 
Résultat, lors du RUN, erreur en 
igne 310 où le E avait disparu de la 
formule à l'endroit du ”“1O*E”. J'ai 
essayé de mettre le produit entre pa- 
renthèses : c’est alors le ’*”’ qui dis- 
paraissait ! 


Docteur J. Rozoy - 26 rue du Petit 
Bois - 08000 Charleville-Mézières 


1 - I existe deux programmes 
commerciaux que nous connaissons 
pour compacter les programmes 
BASIC. Vous en trouverez un dans 
Dakin (voir l'analyse des utilitaires de 
documentation dans Pom's 2), qui 
offre par ailleurs d’autres services. 


Un autre programme commercial, 
Applesoft Optimizer, compacte en- 
core plus les programmes car, outre 
Pélimination des REM et le raccorde- 
ment des lignes raccordables, il opère 
une renumérotation complète et re- 
baptise les variables afin de les rac- 
courcir autant que possible. 


Bien entendu, dans un cas comme 
dans l’autre, il est malaisé de modi- 
fier un programme compacté. L'idéal 
est de ne compacter qu’en fin de 
mise au point, et de garder pour les 
modifications éventuelles du pro- 
gramme une version non compactée. 


La place mémoire que vous gagnez 
dépend de la façon dont votre pro- 
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Courrier des lecteurs 


gramme éfmit écrit Vous gagnerez 
beaucoup de place (parfois jusqu'à 
40%) s’il comporte de nombreuses 
instructions REM, s’il utilise des noms 
de variables longs, s’il possède des 
numéros d'instructions longs et s'il 
met peu d'instructions par ligne. 


2 - Merci! Nous savions qu’il fallait 
se méfier des POKEs intempestifs, 
mais nous n'avions pas encore ren- 
contré ce problème. 


Je n'ai pas là fonction CHOOSE sur 
mon Visicalc. Comment doit-on mo- 
difier la formule de là case B20 dans 
l'exemple de feuille d'impôts du livre 
“Visicalc sur Apple” pour obtenir le 
bon résultat sans cette fonction ? 


M. Morcrette - 02100 St Quentin 


Il suffit de déplacer avec [/M] la ligne 
27 après les deux lignes suivantes 
(en position 29), puis de remplacer 
dans la formule de la case B20 la 
fonction  CHOOSE(B26,A27...M27) 
par LOOKUP(B26.A28...M28). 


Après avoir lu la lettre d'Olivier Herz 
dans le Courier des Lecteurs du 
Pom's 4. j'ai essayé de mettre en 
place le mini-assembleur. J'obtiens 
bien le mini-assembleur, mais aussi la 
pere ligne assemblée. Par exem- 
ple : 

1-2000-:-LDA--#00 me donne : 
2000--A9.-00-LDA--#800 

À partir de là, le système ”’se plante” 
et je dois faire RESET pour en sortir. 
Que faut-il faire ? 


G. Gilbert - 97300 Cayenne 


Il y a en effet une coquille dans ce 
Counier des Lecteurs: il faut lire 
78537 :85”. 


Je tiens à vous livrer une expérience 
désagréable que j'ai eue æec le 
compilateur Pascal. J'avais tapé la 
séquence suivante : 


VAR NOM : STRING ; 
TB  : TAB: 
LJ : INTEGER ; 
{x Compteur de bou- 


cle) 
LBM : LIBMOR ; 
LBV : LIBVER: 
{+ Procédures courantes * | 


etc …. 


A la compilation, j'avais l'erreur de 
syntaxe ’UNDECLARED  IDENTH 
FIER”" à la première occurence de 
LBM et LBV, alors que je croyais les 
avoir déclarées en tête de pro- 
gramme. J'ai mis plus d'une heure à 
découvrir qu'il manquait effective- 


PRANR TASSE TET Le 4 
[LR ET LLLLIZL 


Olivier Herz 


ment l'astérisque avant la parenthèse 
feamante en ligne 3, ce que je ne 
voyais pas à cause de mon écran à 
40 colonnes. 


Michel Lafon - 72 rue du Maréchal 
Foch - 42300 Rrorges 


Merci pour cet exemple : i est bon 
d'être au courant de problèmes de 
ce genre, cela évite que chacun 
perde du temps pour la même rai- 
son. Voici d'ailleurs une autre expé- 
rence de ”’plantage”, pour les ama- 
teurs d’Applesoft. 


Le programme de ”’Gestion de mas- 
ques” de Gérard Michel dans le nu- 
méro 7 m'a fort intéressé. Mais je 
dois dire que j'ai eu des résultats 
vanés lors de l'impression des mas- 
ques : 

e avec une Cenironics, il y avait un 
saut de ligne excédentaire à cha- 
que ligne; 

e æec une Silentype et une IDS, 
aucun problème; 

e avec une Epson équipée d’une 
carte graphique. j'avais une ligne 
sur trois ? 


Guy Mathieu - 92 Vaucresson 


Pour notre part, nous avions testé le 
programme avec une Silentype, une 
Centronics 739 et une Oki 92. Le 
tout sans problème... 


1 - Î} est peu pratique que les pages 
HGR de fApple soient situées en 
plein milieu de la RAM et obligent 
ainsi à situer un programme BASIC 
soit entièrement en-dessous, soit en- 
tièrement au-dessus des pages gra- 
phiques HR. Ÿ at-il un truc pour 
placer un morceau de programme 
avant les pages HGR et un autre 
après ? 


2 - Ceux qui ont la couleur sur leur 
Apple ont sans doute remarqué que 
la définition est moïns bonne qu’en 
NB. Ÿ a-t-il un moyen soft pour se 
passer de la couleur et récupérer la 
vraie définition ? J'ar une carte RVB 
Sonotec et un téléviseur Thomson. 
Parfois, il y a des amorçages {étincel- 
les) au niveau de la THT du télévi- 
seur et, par miracle. mon Apple écrit 
en vert sur fond noir avec la vraie 
haute résolution ou en noir sur fond 
vert. RESET annule cet effet et fait 
revenir la couleur. Je suppose que 
des tensions incontrélées modifient 
l'état de ceitaines mémoires en re- 
montant les fils de la RVB. Comment 
provoquer cela par un moyen moins 
aléatoire ? 
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3 - Et voilà un tuyau : à cause de la 
couleur, l'impression de certains gra- 
phes sur mon écran n'est pas satisfai- 
sante. Des parties de tracé sont 
bleues, d’autres vertes. On obtient de 
très belles courbes bien homogènes 
en traçant en blanc (HCOLOR= 3) 
sur un écran constitué d’une alter- 
nance de lignes horizontales vertes 
{(HCOLOR= 1) et bleues (HCO- 
LOR= 2). 


Joël Delannoy - Quartier des Grées 
-04510 Aiglun - Mallemoisson 


1 - Faire un ‘’trou” dans un pro- 
gramme 


Le programme SPLITTER, publié 
par Call APPLE et repris dans sa pu- 
blication "All About Applesoft” per- 
met de créer un ‘’trou” à l'intérieur 
d'un programme Applesoft, trou qui 
occupe un nombre donné de pages 
mémoire, à définir par l'utilisateur. 


Voici là récapitulat'on binaire de ce 
programme : 


Programme SPLITTER 


Récapitulation 


9400- 38 AS B0 85 41 65 06 85 
9408- 43 ÀS ÀF 85 40 85 42 RO 
9410- 06 A9 00 91 42 88 DO F9 
9418- Bl 40 C6 40 91 42 C6 42 
9420- A5 42 C9 FF D0 F2 AS 41 
9428- C6 43 C6 41 CS 07 10 E8 
9430- A5 07 85 08 C6 08 5B A5 
9458- B0 65 06 85 BO 85 6A 85 
a- EC AS 67 85 40 ÀS 68 85 
9448- 41 AO 0! B1 40 CS OB FO 
9450- 0B AA 8B 81 40 &5 40 86 
9458- 41 CB DO EF 88 B1 40 FO 
9460- 02 DO 05 C8 Bi 40 DO E9 
9468- CB CB C8 C8 B1 40 D6 FB 
9470- C8 C8 C8 C8 C8 A9 AB 91 
9478- 40 À5 40 85 42 ÀS 41 85 
9480- 43 C8 84 09 AO Of Bi 40 
9488- 38 65 06 91 40 88 AA BI 
9490- 40 85 40 86 41 CB A6 09 
9498- DO 11 Bl 40 DO EA 4C 00 
94A0- 90 10 27 EB 03 64 00 OA 
36AB- 00 01 00 CB B1 40 85 19 
34Bè- C8 Bi 40 85 1A A9 A1 85 
94B3- 1B A9 94 85 1C AO 01 A2 
94C0- 01 49 2 85 1D E6 1D À 
94C8- 19 88 38 F1 1B 85 19 C8 


94D8- 85 iA 10 E9 8A DO E6 A5 
94£0- :9 88 :8 71 1B 85 19 C8 
94E8- AS A 71 iB 65 1A 84 iE 
%450- AS {D A4 09 91 42 CB AJ 
94F8- 00 91 42 E6 09 A4 1E C8 
3500- C8 98 C9 OA 30 BB 86 09 


9508- AO 01 4C SA 94 


Mode d'emploi : 

e le sauvegarder 
SPLITTER 

e faire BLOAD SPLITTER 

e POKE 6,nombre de pages du trou 

e POKE 7,page de début du trou 

e CALL 37888 

Exemple: pour épargner la page 

HGR2, il faut faire POKE 6,32: 

POKE 7,64 : CALL 37888. 


Précautions à prendre : on ne peut 
BLOADer SPLITTER et faire le 
CALL depuis le programme Apple- 
soft concemé, mais il faut le faire au 
clavier ou depuis un fichier EXEC. Il 
est fortement déconseillé de relancer 
SPLITTER sur un programme déjà 
"splitté”, ainsi que d'essayer de créer 
un trou en dehors du programme ou 
dans un programme trop gros qui 
déborderait alors sur le DOS. Enfin, 
sauver puis recharger un programme 
"’splitté” ne conserve pas le trou. 


2 - Carte RVB Sonotec 


Voici les POKESs à faire avec la carte 
RUB Sonotec : 

POKE -i6144,0: texte en blanc et 
graphiques en couleur. C'est le mode 
par défaut à l'allumage ou après un 
RESET: 

POKE -16143,0: texte en vert et 
graphiques en couleur 

POKE -16142.0 : texte en blanc et 
graphiques en N/B 

POKE -16141,0: texte en vert et 
graphiques en noir et vert. 


sous le nom 


3 - Merci pour vos tuyaux sur les 
couleurs. Pour en savoir un peu plus, 
vous pouvez vous repoiter à mon ar- 
ticle sur HAÏFA (Pom's numéro 5, 
pages 41 et 42): la fonction SCRN 
haute résolution. 


Dans la ‘Programmation facilitée” 
{Por's 5) de Denis Sureau que je 
remercie vivement pour son article 
original et agréable, finstruction & 
INPUT A$, …, "LABEL ne lit pas 
les espacement. Ainsi : 

$ INPUT A$, …, "QUI EST LA ” 
donne à exécution: "QUIES- 
TLA ?” 


B. Tambosco - 14 rue des Canadiens 
- St Didier des Bois - 
27370 Amfreville-la-Campagne 


Vous avez découvert un bug qui 
s'avère encore plus dangereux que 
vous ne l'avez dit, car un oubli des 
guillemets finaux dans LABEL” fait 


942G- AS 1A 30 02 A2 00 F1 1B que l'amper-interpréteur affichera 
ASSURER MEME 


64 


TOUS les octets du programme Ap- 
plesoft jusqu'aux premiers quillemets 
rencontrés, d'où du ‘garbage” à 
lécran. 


Le problème vient du fait que le pro- 
gramme assembleur affiche la chaîne 
caractère par caractère jusqu’au pro- 
chain dquillemet, chaque caractère 
étant obtenu par la routine CHRGET 
($B1) qui justement ”’saute” les espa- 
ces. 


Je propose une modification utilisant 
les routines Applesoft STRTXT, 
STRPRT et CHRGOT. STRTXT 
($DE81) fabrique un descripteur de 
chaîne pour la chaîne pointée actuel- 
lement par le pointeur de pro- 
gramme TXTPTR ($B8.B9) et stocke 
ce  descripteur en FACMOLO 
($AO.A1). CHRGOT ($B7) lit le ca- 
ractère du programme pointé par 
TXTPTR, sans toutefois incrémenter 
TXTPTR comme CHRGET le fait. 


En conclusion, il faut remplacer les 
lignes 115 à 121 par: 

115 STRING SEC 

116 JSR $DE81 

117 JSR $DB3D 

118 RTSSTR JSR $B7 


Si vous n'avez pas d'assembleur, 
vous pouvez utiliser le patch suivant, 
pour la version 48R de la program- 
mation facilitée : 

9343 : 38 20 81 DE 20 3DDB 
9O3AA: ÉAEAEAFEAEAEAEA 
93B2 : 20 B7 00 


Pour la version 32K. utiliser les 
adresses 53A3, 53AA et 53B2. 


Mon fils Loïc (16 ans et demi} aime- 
rait rencontrer des utilisateurs d'Âp- 
ple Il pour parfaire ses connaissances 
et progresser ensemble. YŸ a-t-il un 
club dans le 208 (sinon le 12è, le 
11è ou le 10è) ou des abonnés à 
Pom's qui seraient intéressés ? 


M. Lepechon - 94 rue de Buzenval - 
75020 Paris 


Nous invitons les lecteurs de Pom's 
intéressés à répondre directement. 
Voici en outre une liste de clubs du 
voisinage : 

Computerland Paris-Est - 135 Bd. 
Voltaire-75011 - Tel 3792101 - 
Contacter M. Cung 

Ecole Professionnelle Supérieure 
(EPS) - 45 rue des Petites Ecuries - 
75010 Paris - Tel 523.35.30 
Contacter Lionel Godard 

Club 702 - 9 rue de Rambouillet- 
75012 Paris - Tel 3453380 - 
Contacter Gilles Probst 


Lecteur récent de Pom's, je me per- 
mets de vous écrire pour vous dire 
BRAVO: bravo pour une revue re- 
marquablement lisible pour le pro- 
grammeur moyen que je suis, bravo 
pour les programmes originaux et in- 
téressants, ‘bravo pour la qualité 
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d'impression et le panachage des dif- 
férents langages. 


Une petite remarque cependant: je 
ne suis pas abonné et ne désire pas 
Tête. J'achète tous les numéros de 
Pom's au jour le jour et possède le 
recueil et tous les autres numéros. Je 
n'ai pourtant pas pu acheter les dis- 
guettes chez mon revendeur habi- 
tuel. Pourquoi donc ? 


J-M Mousseau - 36 rue de Gomer - 
91440 Bures s'Y vette 


Tout d'abord, merci pour vos encou- 
ragements. De nombreux autres lec- 
teurs nous en envoient, nous profi- 
tons de l’occasion pour les remercier 
en même temps que vous. Nous 
avons voulu dès le début de Pom's 
vendre les disquettes d'accompagne- 
ment à très bas prix Où trouverez- 
vous ailleurs des disquettes pleines 
de programmes et vendues moins de 
45 FF TTC (prix sur abonnement) ? 


Vacances informatiques pour 
vos enfants 


"Les amis du logiciel proposent des 
stages de micro-informatique pour les 
enfant de 12 à 14 ans. Les séances 
de travail alterneront avec les activi- 
tés de plein air (tennis, ping-pong, 
natation). Le matériel utilisé est 
Apple Il. Lieu : à 30 kms d'Angers. 


LOGAMI - Christian de Menthon - 9 
rue Las Cases - 75005 Paris - (1) 
551.74.07 


Ma Pomme 


Le club Ma Pomme continue à orga- 
niser des soirées de travail autour 
d'un thème. Prochaines réunions de 
ce genre : Fichiers et bases de don- 
nées sur Apple Il, //e et /// (15 juin), 
Applications musicales et vocales (20 
juillet) et Mémoires de masse pour 
tous Apples (21 septembre). Les 
séances ont lieu à partir de 19 
heures au 110, avenue du Général 
Leclerc à Paris (XIV). 
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Le seul moyen de vendre â ce genre 
de prix est de pratiquer la vente di- 
recte. À titre indicatif, la disquette 
d'accompagnement du livre "Visicalc 
sur Apple” était vendue par nous di- 
rectement à 75 FF TTC port 
compiis. Elle est à présent vendue 
dans les boutiques, distribuée par les 
Editions du PSI, à un peu moins de 
200 FF. C'est d'ailleurs le prix du 
marché pour ce genre de produit. En 
effet, il faut incorporer le coût de 
l'emballage, la marge du diffuseur. 
celle de la boutique, … Seriez-vous 
disposé à payer la disquette de 
Pom's 100 FF pour l'avoir dans les 
boutiques ? 


En réponse à la lettre d'André Ba- 
beanu dans le Courrier des Lecteurs 
du Pons 7, il est exact que le char- 
gement rapide utilisé ne copie que 
des secteurs entiers de 256 octets. Si 
l'on charge un programme en $300. 
cela écrase donc les vecteurs du 


DOS en $3D0 et du RESET en 
$3F2. Il n'y a pas de parade aute 
que de réécrire le MENU. Le pro- 
gramme &BLOAD publié antérieure- 
ment, par contre, comporte un test 
de longueur destiné à contourner cet 
obstacle. 


Quand au patch de la ROM LC, je 
pense qu'il serait intéressant de mo- 
difier le DOS lui-même et de ne pas 
modifier les buffers pour conserver le 
maximum de compatibilité avec les 
autres programmes. De toute façon, 
le MENU est destiné. à ne fonctionner 
que lors du boot, le programme 
choisi peut ensuite compter sur une 
configuration ‘’normale”, libre à lui 
de modifier ce que bon lui semble 
(vecteurs de RESET, d’en- 
trées'sorties, … 


Thieny Le Tallec - 69 rue Sauveur 
Tobelem - 13007 Marseille 


Courrier des clubs 


Ma Pomme - 6 rue Paul Saunière - 
75016 Paris - Tel le soir (tard): (1) 
558.05.78 


Microtel Club Monaco 


Notre Club se réunit un vendredi soir 
sur deux dans notre local provisoire, 
au Club des Sports et Loisirs, à 
l'adresse indiquée ci-dessous. 


Nous sommes équipés d’un Goupi il 
avec TV couleur, mais beaucoup de 
nos membres possèdent des Apple Il, 
qui constituent un centre d'intérêt 
ptiviligié de nos rencontres. Pour 
tous renseignements, contacter C. 
Perisi au (93) 50.68.56 


Microtel Club Monaco - 24, avenue 
Prince Pierre - 98000 Monaco 
Informatique - architecture 


Les prochaines journées de démons- 
tration organisées par notre club se- 


ront consacrées aux applications dis- 
ponibles pour les architectes. Elles 
auront lieu les 24 juin et 22 juillet. 
Pour tout renseignement, s'adresser 
à : 


Club informatique-architecture - 110 
avenue du Général Leclerc - 75014 
Paris-Tel] (1) 45.75.07 


Informatique ”’Populaire” 


Une publication mensuelle d’une 
vingtaine de pages est née en dé- 
cembre dernier. 1] s'agit d'Informati- 
que “Populaire”, bulletin de liaison 
des clubs populaires d'informatique, 
pour le moment implantés dans la 
région Nord et Pas-de-Calais. 


Ecrire à Hélène Weiss - EDICO - 13 
rue E. Rostand - 62200 Boulogne 
s/Mer - Tel (21) 31.42.32 


OLIVETTI PRAXIS 
AVEC INTERFACE APPLE 


5400 F ht. 


L'imprimante qui est aussi une machine à 


écrire. 


Marguerites interchangeables. 


TOTALE FORMATION 


14, avenue Chorles-<de-Gaulle 92200 Neuilly - Tél. 745.62.78, 
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Bon de commande 
à retourner sous pli affranchi 
aux Éditions MEV 

49, rue Lamartine 

78000 Versailles 





mettez 
de la couleur 
dans votre vie 








J'ISSSISISIIIIIS, 


/ y 
50 F ttc EE 
y } 


Ci-joint mon règlement 





Montant 
TIC 


Je désire recevoir : 


° les numéros de la revue Pom'’s [El [15 6 (ir [1 8 
au prix de 35 F le numéro 


e les disquettes d'accompagnement des numéros 
ET AL 2 0 3 [1 4 Ü 5 O6 7 [ 8 
au prix de 50 F par disquette 


° la disquette HAIFA Source [] au prix de 50 F la disquette (cf. Pom’s n° 5) 

e le logiciel H-BASIC C1 au prix de 150 F (cf. Pom'’s n° 8) 
(disponible fin juin 1983) 

° recueil n° 1 de Pom's (n° 1 à 4) Lu 
[1 avec ses 3 disquettes au prix de 270 F pr 


[1 sans disquette au prix de 120 F 
[ les 3 disquettes seules au prix de 150 F 





[1 avec disquettes au prix de 295 F 


[1 sans disquette au prix de 120 F LA 


TOTAL : 


Envoyez ce bon de commande et votre règlement à : 


Éditions MEV - 49, rue Lamartine - 78000 Versailles 


Nom 
Adresse 


Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse 
(voie aérienne exceptée) 
Pour envoi par avion : nous consulter 








MICRO-PERIPH 


ouvre les portes de votre dcprie Ir 


NOUVEAU 


RAMEX 128 K AVEC V.C EXPAND VERSION 89-2(5 600 F TTC) 

SI vaus souhaitez utitiser votre VISICAEC avec : 

+ 138 K de mémolr ae chargemeni d’un tabieau complet en 20 secondea 
+ 80 colonnes sur l'écran (logiciel compatible avec 4 diftérentes cartes 
80 colonnea) 

« Largeur de colonnes variable individuellement 

e Curseur progremmable 

+ Beeucoup d'autres améliorations trés nombreuses 

{Ce logiciel qui ast également compalible avec les cartes Saturn est dispo- 
nible séparément {1 150 F T.T.C.). La carta RAMEX 128 K est disponible 
auas! séparément pour 4600 F T.T.C., y compria le logiciel SOLIDOS.) 


NOUVEAU 


LECTEUR DE CODE BARRE (2 340 F T.T.C) 

GÉNÉRATEUR DE CODE BARRE (2 340 F T.T.C.) 

CARTE AVB (1 500FT.T.C.)avec système d'amélloration d'’anomalles ceLi- 
leur, 

CARTE 80 COL ONNES (1 800 F T.T.C.) : cette carte fonclienne avéCnotra 
carie RVB. 


LES CARTES « PILOTS » 


U.TERM (1 490 F T.T.C.) 

Cette certa qui voua donne 80 cotonnes sur l'écran voua permet d'avoir 
deux jeux de ceractèras à la fois qui sont co-résidenta dans la mémoire 
vive et la Mémoire morte de le carte. Per example, les caractérea frençals 
majuscules et minuscutes ainal que les ceractères anglo-saxons. Elle a 
une très grande gamme de compatibilité : APPLESOFT, PASCAL, CP/M, 
APPLEWRITER Il, etc. (Photo 2). 

U-Z80 (1 550 F T.T.C.}: son point fort est le viteaae : 4 MHz. Compatibla avec 
tous lea logiciela CP/M ou de 260 (Pholo 1). 

U-RAM16 (890 F T.T.C.) : c'est une carta langage entiérement compatible 
avec INTEGER BASIC,PASCAL, VISICALC, etc. Pourquoi payer plus cher? 
U-S232 (990 F T.T.C.) : une carte da sérle, vitasae verlable entre 75 et 
19200 bauda. Cette carte contlant son propre logicielda handshake, ca qui 
permet de falra fonctionner une imprimante à sa vitesse optimale. Compa- 
tlble avec le logiciel de communication VISITERM (Photo 1). 


DIVERS POUR L'APPLE I! 


JOYSTICK TRACKBALL (880 F T.T.C) : une grande boula pour diriger vos 

navirea spetlaux. 

CARTE HORLOGE (770 F T.T.C.): au quartz avec plle et logiciel agenda. 

ROBOCOM 8ITSTICK (3 387 F T.T.C.) : un sys#ème très sophistiqué de des- 

sin graphique. 

D 8ASEIt{5 200 F T.T.C.) : système de bese de données relaflonnel (Z 80). 

JOYSTICK KRAFT {510 F T.T.C.) et JOYSTICK TG PRODUCTS (590 F T.T.C.): 

fabriqués eux États-Unis, ils sont d'excellantes qualité et fiabilité. 

LECTEURS DE DISQUES : toutes les configurations possibles entre 143 K 

ociets et 2 M octets, entiérement compatibtes avec l’Appie ||, 

CCS carw synchrone (2 120 F T.T.C.) : pour dialoguer avec un IBM. 

DB MASTER (2 050 F T,T.C.) : très puissant. Base de données. 

reel lacs AE 472F T.T.C.): peut£tre la plus pulssanta des bases de 
onnées. 

ASC EXPRESS PROFESSIONAL {1 376 F T.T.C.) : psrmet d'envoyer 

n'importe quel fichier en DOS par modem. 

MUMATH/MUSIMP Z80 (2 542 F T.T.C.) : très puissent logiciel mathémeti- 

que 

eu (750 F T.T.C.) : se brenctre 6 gauche de l'Apple Il. Alimente 

l'APPle Il. 


(LLELEEL 


Ouvert du mardi au samedi : 10h-12het14h-18h 
60, rue Ducouédic - 75014 PARIS (Tél. : 321.41.80) 


NOUVEAU 


ACCELERATOR II (3 950 F T.T.C.) 

Cette carte, fabriquée par Saturn Systems, est équipée d'un microproces- 
seur 6502 C qui tourne à 3,58 MHz et de 64 K de RAM. Cette augmentation 
de vitesse de 358 % se traduit par une augmentation de rapidité d'exploita- 
tion de tous les programmes. La carte est directement compatible avec 
tous les langages et programmes (Applesoft, Integer, Binaire, Pascal, For- 
tran 77, Forth ainsi que tous les progiciels tels que Visicalc, DB Master, 
etc.). À la commande, spécifier version Apple |! ou Apple /e. 


NOUVEAU 


PROGRAMMEUR D'EPROMS (1 360 F T.T.C.). La carte se branche dans un 

slot de l'Apple |! et permet de programmer directement les EPROMS (2758, 

2716, 2732 et 2764). Un logiciel de gestion du programmeur se trouve sur la 

carte de mémoire morte, Une carte existe également pour adapter les 
PROMS programmés sur l'Apple 1! (630 F T.T.C.). 


EXTENSIONS DE MÉMOIRE 


U-RAM 32K (1 450 F T.T.C.), U-RAM 64K (2 590 F T.T.C.), U-RAM 128K 
{4 250 F T.T.C.) (Photos 7 et 4} VERSA RAM émulateur da disque {690 F 
T.T.C.) 


CARTES SCIENTIFIQUES 


U-A/D (4 530 F T.T.C.) : carte analogue digitale haute vitesse, 12 bits, 
16 gammes (Photo 6). 

Carte A/D 8 bits (1 400 F T.T.C.), 1 gamma (470F T.T.C) 

Carte D/A 8 bits (1 889 F T.T.C.), 1 gamme (450 F TTC.) 

U-BCD (1 050 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T. 32 lignes entrée-sortie avec temParisateur et buyler 
U-TIM (1 090 F T.T.C.), temporisateur 

U-2 PORT 1 800 F T.T.C.) : 2 portes RS 232 sur la même certee xtensible 
jusqu'à 8 portes{Photo 5) 

THE MILL 6809 (NC) : co-processeurs à haute vitesse et de multiprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 blts interne (Photo 3). 

Nous avons plusieurs autree cartas qui ne sont pas mentionnées ici; 
renselignez-vous 


ENSEMBLES D'EXPANSION VISICALC 


V.C 50K (3 580 F T.T.C.) : 1 carte 80 cotonnes, V-C expand logiciel, U-RAM 
32K 

V.C 82K (4580 F T.T.C.} : 1 certe80 colonnes, V.C expand logiciel, U-RAM 
64K 

V.C 146K (8 360 F T.T.C.): 1 carte 80 colonnes, V-C expand logiciel, U-RAM 
128K 

V-C consolidator{400 FT.T.C.) : pour consolider plusieurs tableaux de VISI- 
CALC 

V-C super expand (700 F T.T.C.) : version 40 colonnes avec sauvegarde sur 
diskette en 20 secondes (le RAMEX 128K est nécessairæ 

V-C super expand 80 (800 F T.T.C.) : version 80 colonnes compatible avec 
les cartes omnivision 80, Videx et U-Term (le RAMEX 128K est nécessaire) 


OUVEAU 


EPSON FX 60 (5 800 F T.T.C.}- PROMOTION 

Vitease : 160 cp.s, 80, 40, 137, 88 98 ou 48 caractères par ligne, 
frlctloniraction, 9 tormete grephiques, 9 Jeux de caractères, RAM avec 
togiclel ouvert Pour générer votre proprejau de caractères, matr ce da 11 
fois 9,e specemant proportionnet, mode sllanctaux. 


Si vous ne voyez pas ce que vous cherchez ou si vous désirez de plus 
amples renseignements, téléphonez à MICRO-PÉRIPH (321.41.80). Si vous 
ne pouvez vous déplacer, téléphonez-nous pour connaître le revendeur le 
plus proche de chez vous ou complétez le bon de commande ci-dessous. 
TOUTES NOS CARTES SONT GARANTIES 12 MOIS 


BON DE COMMANDE 


A découper et envoyer à 
MICRO-PÉRIPH, 60, rue Ducouédic : 75014 Paris - Tél. : 321.41.80 
Je désire recevoir rapidement, sous pli recommandé : 


QUANTITÉ DESIGNATION 


Total 
Fraia de port recommmandé 


Cl-Joint un chéqua/C.C.P. de F : 














En raison des fluctuations monétoUes, ces pda sont susceptibles d'être modifiés «ans préavis. Nous consulter pour confirmation. 
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APPLE I E Cartes pour Apple ] : VISICORP 
Entièrement competible avec l'Apple Il UÉRAMNIE KE re. 890F Une sétie de logiciels d'aide à la déci- 
il possède un clavier étendu Azeïty/ U-TIM cite horloge........1 090F sion : Visicalc - Visiplet - Visidex - Visi- 
0 et une mémoire de 64K ect. U-TERM caite 80 col....... 1490F file. 

‘origine. U-Z80 carte CP/M ..... 1150F 
Déjà de nombreux logiciels et exten- CP/M peur U- Sense 750F MOTION 
sions disponibles sur ce nouvel ordi- Microbuffer EPSON 16K....2450F PB 
nateur. Micrebuffer ext. 64 K....... 3 300F 

Clavier numérique ........, 950 F ORIC I 

APPLE ll] Carte chat Mauve ......... 1400F Un erdinæteur pour tous de 16 &48K 


L'outil professionnel par excellence. 
28 Ko ou 256 Ko. Unité de disque 
incorporée. Sortie RS 232. Nombreux 
interfaces disponibles. Adjonchon 
possible dun disque dur de 5 méga. 


Carte EVE pour Apple Il E 2 900 F 
Cote 80col.TEXTAIIE ... 990Fr 
Carte 80 col. +64K AE 2300F 
Poignées de contréle. ... 185 F 
I0YStOenniner recents .. 380F 
Cette Superterm 80 col. ....2590F 


oct. RAM. 

16 couleurs en graphisme haute résolu- 
tion. 

Synthétiseur de son et interface peral: 
ièle incerporés d'erigine. 


Profilé. Ecran vert haute résolution Ventilateur Super Fen 850 F Version 48 K. 2 080 £ 
antreflets. Clavier Azerty - Qwerty. Carte mémoire 64 K...._..2590F 
k Caœte mémoire 128 K ...... 3950F 
MONITEURS VIDEO 
Pine le NB ever ..  1050F Produits consommables : 
Prinee 12" Vert. ..........: 1400F Disq. SF/DD 3M les 1@ ..... 210F 
Prince 12° Ambre..._... ...1600F Disq. DD/DD 3M les 10... 452F 
CIM 12" Vert... 1720F K 7 vierges les 10......... 70F 
Philips 12” Ambre........., 1720F Papier listing 80 col. .... 290F 
Cabel 12*CouleurRVB ... 3500 F Papier listing 132 col. . 350F 
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